Найти максимальное число и уменьшить все элементы массива на 5 - Turbo Pascal
Формулировка задачи:
В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!
Решение задачи: «Найти максимальное число и уменьшить все элементы массива на 5»
textual
Листинг программы
const n = 5; var a: array[1..n] of integer; i, max: integer; begin for i := 1 to n do readln(a[i]); max := a[1]; for i := 2 to n do if a[i] > max then max := a[i]; writeln('max: ', max); for i := 1 to n do begin a[i] := a[i] - 5; write(a[i]:6); end; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д