program zadacha;
vara: array[1..10] of integer;i,max,n: integer;
beginfor i:=1 to 10 do read(a[i]);n:=0;max:=a[1];
for i:=2 to 10 do beginif maxfor i:=1 to 10 do beginif a[i]=max then beginn:=n+1;end;end;
writeln();writeln('max=',max);writeln('n=',n);end.

Понимаю как максимальное,а как минимальное нееет((((

так же,только знак другой,меньше

ar i,min: Integer;
mas:array[1..10] of Integer ;
begin
min:=mas[1];
Randomize();
for i:=1 to 10 do
begin
mas[i]:=Random(20);
write(' ',mas[i]);
if(mas[i]end;
WriteLn();
writeln('minimal ',min);
end.

vot

Спасибо))