Pascal
1. напишите программу, которая в последовательности натуральных чисел определяет сумму чисел,
кратных 5. программа получает на вход количество чисел в последовательности, а затем сами
числа. в последовательности всегда имеется число, кратное 5. количество чисел не превышает
100. введённые числа не превышают 300. программа должна вывести одно число — сумму чисел,
кратных 5.
2. напишите программу, которая в последовательности натуральных чисел определяет минимальное
число, оканчивающееся на 4. программа получает на вход количество чисел в
последовательности, а затем сами числа. в последовательности всегда имеется число,
оканчивающееся на 4. количество чисел не превышает 1000. введённые числа не превышают 30
000. программа должна вывести одно число — минимальное число, оканчивающееся на 4.
Всё напишу в объяснении.
Объяснение:
1) Program Ex1;
var
n, a, i, sum : integer;
begin
sum := 0; // обнуляем счетчик суммирования
read(n); // вводим кол-во чисел
for i := 0 to n do
begin
read(a); // считываем эти числа
if (a mod 5 = 0) then sum := sum + a; // если число кратно 5, то добавляем его к сумме
end;
writeln(sum); // выводим сумму.
end.
2) Program Ex2;
var
n, a, i, min: integer;
begin
min := 30000;
read(n); // вводим кол-во чисел
for i := 0 to n do
begin
read(a); // считываем эти числа
if ((a mod 10 = 4) and (a < min)) then min := a; // ищем минимум
end;
writeln(min); // выводим минимум
end.