Дан массив естественных чисел из пяти элементов. Отыскать величайший элемент. Решение:

Дан массив натуральных чисел из пяти частей. Отыскать величайший элемент. Решение: program pr1; var a: array [1..5] of integer; max,i: integer; begin for i:=1 to 5 do readln(a[i]); max:=a[1]; for i:=2 to 5 do if a[i]gt;max then max:=a[i]; writeln('наибольший элемент: ', max); readln; end. Задания: 1. Переработать данную программу так, чтоб определить малый элемент массива