Разработать программу, которая находит наибольшее из нескольких целых чисел. Считать, что первое число определяет количество чисел, осталось ввести.
Разработать программу, которая находит наибольшее из нескольких целых чисел. Считать, что первое число определяет количество чисел, осталось ввести.
Гость
Ответ(ы) на вопрос:
Гостьvar a, max, i, n:integer;
begin
readln(a);
n:=a-1;
readln(a);
max:=a;
for i:=1 to n do
begin
readln(a);
if a>max then max:=a;
end;
writeln(max);
end.
Не нашли ответ?
Похожие вопросы