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.
Program z234; const n = 10; Var a: array [1..n] of integer; i,x,f:integer;Begin for i:=1 to n do begin write('A[',i,'] = '); readln(a[i]); end; for i:=1 to n do write(a[i],' '); writeln; write('Введите число = '); readln(x); f:=0; for i:=1 to n do if a[i] = x then f:=1; if f = 1 then writeln('Число ',x, ' входит в массив') else writeln('Число ',x, ' НЕ входит в массив')End.
100 страниц мелкого текста, потому что там больше нарисано