Question

С клавиатуры вводятся 10 чисел. Найти минимальное. (Цикл с параметрами,Турбо Паскаль) Спасибо.

Answer 1

uses crt; var a,b,c,mn,mx:integer; begin clrscr; writeln('Вводите по 3 целых числа, окончание ввода все числа равны'); repeat write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); if(a<>b) then  begin   if a>b then mx:=a else mx:=b;   if c>mx then mx:=c;   if a<b then mn:=a else mn:=b;   if c<mn then mn:=c;   writeln('Мин=',mn,' макс=',mx);  end; until(a=b)and(a=c); write('Нажмите любую клавишу'); readkey end.