Найти максимальное число и уменьшить все элементы массива на 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д