Написать код программы , который в последовательности натуральных чисел определяет максимальное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Ответы
Ответ дал:
2
Ответ:
program z1;
var a, i, n, max: integer;
begin
max:=0;
write ('Введите количество чисел в последовательности ');
readln (n);
for i:=1 to n do
begin
write ('Введите натуральное число ');
readln (a);
if a > max then max:=a
end;
writeln('Максимальное число в последовательности ',max)
end.
Объяснение:
Т.к. программа будет получать на вход натуральные числа, то первоначальным значением для переменной max можно взять 0.
Он не является натуральным числом, но все натуральные числа больше него.
Вас заинтересует
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
7 лет назад