Найти максимальный элемент массива - Pascal (4546)

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

Создать одномерный массив из 10 случайных целых чисел из интервала от -10 до 10. Найти максимальный элемент массива. Заменить все положительные элементы массива максимальным. Вывести на экран исходный и преобразованный массивы в строки, максимальный элемент с пояснительным текстом.

Решение задачи: «Найти максимальный элемент массива»

Листинг программы

uses crt;
var a:array [1..10] of integer;
    i,max:integer;
Begin
ClrScr;
for i:= 1 to 10 do
 a[i]:=10-random(20);
for i:= 1 to 10 do
 write(a[i]:4);
max:=a[1]; 
Writeln; 
for i:= 1 to 10 do
 if a[i]>max
  Then max:=a[i];
Writeln('Максимальный элемент: ',max);  
for i:=1 to 10 do
 if a[i]>0
  Then a[i]:=max;
for i:= 1 to 10 do
 write(a[i]:4);  
Readln; 
End.

Объяснение кода листинга программы

Создается переменная a, которая представляет собой массив целых чисел размером 10.
В цикле for генерируются случайные числа от 0 до 9 (исключая 0 и 9) и присваиваются элементам массива a.
Выводится содержимое массива a с помощью функции write.
Переменная max инициализируется значением первого элемента массива a.
В цикле for происходит сравнение каждого элемента массива a с переменной max. Если текущий элемент больше max, то max обновляется значением текущего элемента.
По завершении цикла выводится сообщение с максимальным элементом массива a.
В цикле for происходит очистка массива a.
Выводится содержимое массива a с помощью функции write.