Каждый отрицательный элемент массива заменить полусуммой соседей - Pascal
Формулировка задачи:
Составить программу. Пусть дан массив из n элементов.Каждый отрицательный элемент замените полусуммой тех двух элементов, которые стоят с ним справа и слева.
Помогите пожалуйста.
Код к задаче: «Каждый отрицательный элемент массива заменить полусуммой соседей - Pascal»
const n = 8;
var a: array[1..n] of real;
i: integer;
t, ti: real;
begin
randomize;
for i := 1 to n do
repeat
a[i] := -99 + random(199);
until ((i > 1) and (i < n)) or (a[i] > 0);
writeln('Исходный массив:');
for i := 1 to n do write(a[i]:6:1);
writeln;
t := a[1];
for i := 2 to n - 1 do
begin
ti := a[i];
if a[i] < 0 then a[i] := (t + a[i + 1]) / 2;
t := ti
end;
writeln('Результат:');
for i := 1 to n do write(a[i]:6:1);
readln
end.
Эта работа вам не подошла?
Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.
СДЕЛАЙТЕ РЕПОСТ
13 голосов, оценка 4.077 из 5
Похожие ответы