Модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива.
Предыдущий пример
Program Massiv;
Const N=10;
Var A:array [1..N] of integer;
i, min:integer;
begin
for i:=1 to N do
begin
write('Введите',i,'-й элемент:'); readln(A[i]);
end;
min:=A[1];
for i:=2 to N do if A[i] then min:=A[i];
writeln('Minimum=',min);
end.

Спасибо

Program Massiv;Const N=10;Var A:array [1..N] of integer;i, min, max:integer;beginfor i:=1 to N dobeginwriteln('Введите',i,'-й элемент:'); readln(A[i]);end;min:=A[1];max :=A[1];for i:=2 to N dobeginif A[i] < min then min:=A[i];if A[i] > max then max:=A[i];end;writeln('Minimum=',min);writeln('Maximum=',max);end.