С клавиатуры вводятся 10 чисел. Найти минимальное. (Цикл с параметрами,Турбо Паскаль) Спасибо.
uses crt;var a,b,c,mn,mx:integer;beginclrscr;writeln(Вводите по 3 целых числа, окончание ввода все числа равны);repeatwrite(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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
