Информатика, опубликовано 2018-08-22 19:39:57 by Гость
Вводится n чисел. Найти наибольшее.(Паскаль АВС)
Ответ оставил Гость
Program MAX;
var
a:integer;{само проверяемое число}
m:integer;{максимально число}
begin
m:=0;{начальное значение максимального числа}
writeln(Введите ваше число:, (Если захотите выйти, напишите ноль):3);
readln(a);
while (a 0) then begin
If (a > m) then begin
m:= a; end;
readln(a); end;
writeln(Максимально число:, m:3);
End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на