Var a,b,c,max,min:integer;
begin
read(a,b,c);
max:=c;
min:=c;
if min>a then min:=a else if min>b then min:=b;
if max<a then max:=a else if max<b then max:=b;
write(min,max);
end.
const n=20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(31)-10;
write(a[i]:4);
end;
end.
Пример:
7 8 12 16 8 16 6 16 3 9 10 1 3 -1 17 -9 19 -2 1 4
Исправил решение. Теперь все работает как нужно. код программы в файле.