Каждый отрицательный элемент массива заменить полусуммой соседей - 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
Похожие ответы