Все члены массива, начиная с первого положительного, уменьшить на 0,5 - Turbo Pascal

Формулировка задачи:

Дан массив чисел A(N). все члены этого массива, начиная с первого положительного, уменьшить на 0,5.

Код к задаче: «Все члены массива, начиная с первого положительного, уменьшить на 0,5 - Turbo Pascal»

textual
flag := false;
for i := 1 to n do begin
  if A[i] > 0 then
    flag := true;
  if flag then
    A[i] := A[i] - 0.5;
end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 3.889 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы