Задача на массивы - Паскаль, Turbo Pascal, PascalABC.NET

Mashaaaaa · 21.05.2012, 17:27

В массиве каждый отрицательный элемент заменить полусуммой тех двух элементов, которые стоят слева и справа от него

Arhangel7 · 21.05.2012, 23:26

Код:

var 
  A:array[1..3] of real;
begin
  A[1]:=1;
  A[2]:=-2;
  A[3]:=2;
  A[2]:=A[1]+A[3];
  A[2]:=A[2]/2;
end.

21.05.2012, 17:27	#1
Mashaaaaa Регистрация: 20.02.2012 Сообщений: 5	Задача на массивы В массиве каждый отрицательный элемент заменить полусуммой тех двух элементов, которые стоят слева и справа от него

21.05.2012, 23:26	#2
Arhangel7 Пользователь Регистрация: 27.02.2010 Сообщений: 90	Код: `var A:array[1..3] of real; begin A[1]:=1; A[2]:=-2; A[3]:=2; A[2]:=A[1]+A[3]; A[2]:=A[2]/2; end.` как-то так

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача на массивы. С++	Enigmya	Помощь студентам	9	11.02.2011 09:05
Задача на массивы	tabanga	Помощь студентам	4	13.01.2011 23:12
задача на массивы	Withoutemotions	Паскаль, Turbo Pascal, PascalABC.NET	6	28.06.2010 02:26
задача на массивы	lini	Помощь студентам	2	20.09.2009 21:28