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