Регистрация
viktr1
11.03.2022 22:44
Информатика
Есть ответ 👍

30 баллов
Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. Паскаль.​

190
310
Посмотреть ответы 2

Ответы на вопрос:

Котмяумяу
Котмяумяу
4,8(16 оценок)

var

n:word;

a,max,i:integer;

begin

repeat

write ('N = ');readln(n);

until (n>0) and (n<=1000);

write ('A = ');readln(a);

if a mod 5 = 0 then max:=a; 

while i<>n-1 do begin

write ('A = ');readln(a);

if (a>max) and (a mod 5 = 0) then max:=a; 

i:=i+1;

end;

writeln ('Max: ',max);

readln;

end.

Kaisool
Kaisool
4,6(55 оценок)

Арифметические операторы

Операторы сравнения (реляционные)

Операторы присваивания

Побитовые операторы

Логические операторы

Операторы членства (Membership operators)

Операторы тождественности (Identity operators)

Популярно: Информатика