Нужно решить задачку:
Найти максимальное и минимальное число
(Блок схема и программа)
Работаем в Паскале

если водится n  чисел то вот программа

program maxmin;

var a:array[1..1000]of longint;

i,n,max,min:longint;

begin

read(n);

for i:= 1 to n do

read(a[i]);

min:=a[1];

max:=a[1];

for i:=1 to n do

begin

if a[i]<min then min:=a[i];

if a[i]>max then min:=a[i];

end;

writeln('min=',min,'max=',max);

end.