Я уже опубликовал исходный код программы на Паскале «Pascal. Наименьший элемент массива«, а теперь требуется найти наибольший элемент массива. Привожу исходный код программы с комментариями.
program MaxElement;
const
{количество элементов массива}
N=15;
var
i,j: integer;
arr: array [1..N] of integer;
begin
{заполняем массив случайными числами}
for j:=1 to N do begin
arr[j]:= random(50);
{выводим элемент массива}
write(arr[j], ' ');
end;
{пусть наибольшим будет первый элемент}
i := 1;
{перебираем элементы массива}
for j:=2 to N do
{если элемент является наибольшим, то запоминаем его номер}
if arr[i] > arr[j] then i := j;
{выводим наибольший элемент массива}
writeln('element ', arr[i]);
end.
Количество элементов в массиве задается константой N. Диапазон для генерируемых чисел массива можно задать в строке:
arr[j]:= random(50);