Модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива. предыдущий пример 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;
begin
for i:=1 to N do
begin
writeln('Введите',i,'-й элемент:'); readln(A[i]);
end;
min:=A[1];
max :=A[1];
for i:=2 to N do
begin
if A[i] < min then min:=A[i];
if A[i] > max then max:=A[i];
end;
writeln('Minimum=',min);
writeln('Maximum=',max);
end.