Предмет: Информатика,
автор: etialidianksica
С клавиатуры вводятся 10 чисел. Найти минимальное. (Цикл с параметрами,Турбо Паскаль) Спасибо.
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Английский язык,
автор: Esmir27
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: sevam79