1. Напишите программу, которая в последовательности натуральных чисел определяет сумму нечетных чисел, оканчивающихся на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число
2. Напишите программу, которая в последовательности натуральных чисел определяет количество и среднее значение суммы четных 3-хзначных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Если избранных чисел нет, вывести «нет»
program one;
var
s,n,a,i :integer;
begin
s := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if (a mod 2 <>0) and (a mod 10 =7) then
s := s+a;
end;
write(s);
end.
###
program two;
var
s,n,a,i, k :integer;
begin
s := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if (a mod 2 = 0) and (a>99) and (a<1000) then
k := k + 1;
s := s + a;
end;
write(k, s/k);
end.