Дано n вещественных чисел. Найти величину наибольшего из них. Выполнить в Pascal
Дано n вещественных чисел. Найти величину наибольшего из них. Выполнить в Pascal
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program MaxNumber;
va
n, i: integer
num, max: real;
begi
write('Введите количество чисел: ')
readln(n);
write('Введите число 1: ')
readln(max);
for i := 2 to n d
if num > max thebegi
write('Введите число ', i, ': ')
readln(num);
max := num;
end;
writeln('Наибольшее число: ', max)
end.