Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
26 декабря 2022 01:31
837
паскаль прошу очень важно)Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, кратное 4. Пример работы программы:

1
ответ
Сначала вводим n - количество чисел, затем в цикле n раз вводим число, сравниваем с текущим максимальным max, и, если максимальное меньше, вместо максимального записываем текущее число. В качестве начального значения max принимаем 0, т.к. любое натуральное число, делящееся на 4, больше 0.
var
i, t, max, n: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(t);
if (t mod 4 = 0) and (t > max) then
max := t;
end;
writeln(max);
end.
var
i, t, max, n: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(t);
if (t mod 4 = 0) and (t > max) then
max := t;
end;
writeln(max);
end.
0
·
Хороший ответ
28 декабря 2022 01:31
Остались вопросы?
Еще вопросы по категории Информатика
1.На основе чего строится любая диаграмма? книги Excel А) графического файла Б) текстового файла В) данных таблицы 2.Выберите относительный адрес яче...
Задача: Удаление символа Решить через С++ Дана строка. Удалите из этой строки все символы @. Входные данные Вводится строка. Выходные данные Вы...
/*14.1. Бонни и Клайд (6) Задача выполнена студентом ПС 21 Желаевым Денисом. Бонни и Клайд задумали ограбить в некотором городе два банка. Все N банк...
СРОЧНО!!!!!!! в сельскохозяйственном интституте изучают всхожесть семян. результатом одного измерения является целое число от 0 до 100%,которое записа...
Помогите, пожалуйста : Чему равно значение переменной s после выполнения следующего фрагмента программы: s:=0; for i:=0 to 5 do s:=s+1; а)6 б)15...