среди вводимых через х 10 чисел нужно найти наибольшее и малое

паскаль?

да

сек допишу другую задачку, и для тебя помогу

ок))

Блин парился, парился так и не допёр как сделать то что я желал, путь будет так.
ВАРИАНТ 1:
Var i:integer; n,m,max,min:real;
Begin
m:=10;
min:=999999999999999999999999999999999999999999;

     for i:=1 to 10 do begin
                                  Write('Введите числа (осталось ',m,'чисел):'); readln(n);
                                    m:=m-1;
                                    
  if ngt;max then max:=n
  if nlt;min then min:=n;
   end;
writeln('наибольшее число: ',max,' малое: ',min);

End.

ВАРИАНТ 2:
Var i,m:integer; n,max,min:real;
Begin
m:=9;
  Write('Введите 10чисел: '); readln(n);
min:=n;
                Repeat
  Write('Введите ',m,'чисел: '); readln(n);
      if nlt;min then min:=n;
      if ngt;max then max:=n;
m:=m-1;
   Until(m=0);
Writeln('Мало число: ',min,' наибольшее: ',max);
end.

ВАРИАНТ 3:
Var i,m:integer; min,max,n:real;
Begin
m:=9;
  Write('Введите 10чисел: '); readln(n);
min:=n;
 while mlt;gt;0 do begin
                           write('Введите ',m,'чисел: ');readln(n);
m:=m-1;
      if nlt;min then min:=n;      if ngt;max then max:=n;
end;
Writeln('Мало число: ',min,' наибольшее: ',max);
end.

ВАРИАНТ 4:
Var n1;n2,n3,n4,n5,n6,n7,n8,n9,n10:real;
Begin
Write('Введите 10чисел:'); readln(n);
max:=n;
min:=n;
Write('Введите 9чисел:'); readln(n);
if ngt;max then max:=n;
if nlt;min then min:n;
Write('Введите 8чисел:'); readln(n);
if ngt;max then max:=n;
if nlt;min then min:n;
Write('Введите 7чисел:'); readln(n);
if ngt;max then max:=n;
if nlt;min then min:n;
Write('Введите 6чисел:'); readln(n);
if ngt;max then max:=n;
if nlt;min then min:n;
Write('Введите 5чисел:'); readln(n);
if ngt;max then max:=n;
if nlt;min then min:n;
Write('Введите 4числа:'); readln(n);
if ngt;max then max:=n;
if nlt;min then min:n;
Write('Введите 3числа:'); readln(n);
if ngt;max then max:=n;
if nlt;min then min:n;
Write('Введите 2числа:'); readln(n);
if ngt;max then max:=n;
if nlt;min then min:n;
Write('Введите 1число:'); readln(n);
if ngt;max then max:=n;
if nlt;min then min:n;
Writeln('Мало число: ',min,' максимальное: ',max);
end.