Question

1. Напишите программу, которая в последовательности натуральных чисел определяет сумму нечетных чисел, оканчивающихся на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число  
2. Напишите программу, которая в последовательности натуральных чисел определяет количество  и среднее значение суммы четных 3-хзначных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Если избранных чисел нет, вывести «нет»

Answer 1

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.