Дан массив из целых чисел X[1..5]. Заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов.
Дан массив из целых чисел X[1..5]. Заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов.
Гость
Ответ(ы) на вопрос:
Гость var
x : array [1..5] of real;
i : integer;
begin for i := 1 to 5 do
if i mod 2 = 1 then
x[i] := (i+1+i-1)/2;
for i := 1 to 5 do
writeln (x[i]:3:2);
end.
Не нашли ответ?
Похожие вопросы