Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоComboВсе проекты

Сравнить числа (найти мах число) вводимые с клавиатуры

Эльмира ---Жиганшина Ученик (152), на голосовании 12 лет назад
Блок схема и программирование в паскале
Голосование за лучший ответ
Азазелло 1 Мастер (1138) 12 лет назад
1.ввел число
2.запомнил его в минимум
3.ввел следующее, если оно меньше минимума запомнил его в минимум, перейти к п. 3.
Паскаля не знаю (знаю С++) , но прога элементарная!!!
Пользователь удален Профи (676) 12 лет назад
Для примера 10 вводов (вводимые целые числа) :

var max, i, in : integer;
begin
max:=-32768;
for i:=1 to 10 do begin
readln(in);
if max > in then max:=in;
end;
writeln('Max=', max);
readln;
end.
Похожие вопросы