program L_2_Z_2;
var mas : array[1..100] of integer;
i, max, min, b, c : integer;
begin
randomize;
for i := 1 to 20 do
begin
mas[i] := 1 + random(98);
write(mas[i], ' ,');
end;
begin
max := mas[1];
for i := 1 to 100 do
if max < mas[i] then begin
max := mas[i]; b:= i;
end;
end;
begin
min := mas[1];
for i := 1 to 100 do
if min > mas[i] then begin
min := mas[i]; c := i;
end;
end;
writeln(' ', 'Max = ', max, ' ','Min = ', min);
if b < c then
writeln('Znachenie Max ', max, ' vstretilos ranshe.')
else
writeln('Znachenie Min ', min, ' vstretilos ranshe.');
readln;
end.