Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество
5-9 класс
|
чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Паскаль
n - количество чисел
i - цикловая переменная
a - натуральное число
max - максимальное число, кратное 5
Язык програмирования: Паскаль
var
n,i,a,max: integer;
begin
readln(n);
max := -1;
for i := 1 to n do
begin
readln(a);
if (a mod 5 = 0) and (a > max) then
max := a;
end;
writeln(max)
end.
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.
Другие вопросы из категории
при каких условиях
4)Если это римские числа
Читайте также
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5.
Количество чисел не превышает 1000. Введенные числа не превышают 30 000.
Программа должна вывести одно число - максимальное число, кратное 5.
чисел в последовательности , а затем сами числа . В последовательности всегда имеется число , кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число , кратное 5
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, оканчивающееся на 3. Пример работы программы: Входные данные Выходные данные 3 23 13 23 3
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).