Найти максимальное число и уменьшить все элементы массива на 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.