Все члены массива, начиная с первого положительного, уменьшить на 0,5 - Turbo Pascal
Формулировка задачи:
Дан массив чисел A(N). все члены этого массива, начиная с первого положительного, уменьшить на 0,5.
Решение задачи: «Все члены массива, начиная с первого положительного, уменьшить на 0,5»
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;
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д