ПАСКАЛЬ!!!!!!!!! Напишите программу, которая в последовательности натуральных чисел...

Question

ПАСКАЛЬ!!!!!!!!! Напишите программу, которая в последовательности натуральных чисел определяет среднее арифметическое чисел последовательности, оканчивающихся на 3 или на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда есть число оканчивающиеся на 3 или на 7. Программа должна вывести одно число - среднее арифметическое чисел последовательности, оканчивающихся на 3 или на 7.

Answer 1

Ответ:

var x, i, k, n:integer;

Begin

Read(n);

For i:=1 to n do

begin

Read(x);

IF (x mod 10=3) or (x mod 10=7) Then begin

k:=k+1;

s:=s+x;

end;

end;

Write(s/k);

end.