Uses CRT;
const
n = 10;
var
a: array[1..n] of integer;
min, max, i: integer;
begin
min:=10000; max:=-10000;
for i:=1 to n do
read(a[i]);
if (a[i] < a[min]) then min:=i
else if (a[i] > a[max]) then max:=i;
end;
writeln('Минимум: ', a[min], '; Максимум: ', a[max]);
end.
Объяснение:
Uses CRT;
const
n = 10;
var
a: array[1..n] of integer;
min, max, i: integer;
begin
min:=10000; max:=-10000;
for i:=1 to n do
begin
read(a[i]);
if (a[i] < a[min]) then min:=i
else if (a[i] > a[max]) then max:=i;
end;
writeln('Минимум: ', a[min], '; Максимум: ', a[max]);
end.
Объяснение: