Код на паскале

Question

Код на паскале

Артур Устинов Ученик (208), на голосовании 2 дня назад

Напишите программу на языке паскаль, которая в последовательности натуральных десятичных чисел определяет среднее арифметическое элементов, запист которых в системе счисления с основанием 7 оканчивается на цифрой 4. Если среди входных данных таких элементов нет, программа должна вывести «No». Программа получает на вход в первой строке натуральное число - количество чисел N (3<=N<=10000) затем N натуральных чисел не привышающих 30000, каждое в отдельной строке. Программа должна вывести одно - среднее арифметическое десятичных чисел (элементов последовательности), запись которых в 7-ричной системе счисления оканчивается цифрой 4, или «NO», если среди входных данных таких элементов нет.

Answer 1

Очень просто:

 var k, l, m, N: integer; 
s: longint = 0; 
begin 
  k := 0; 
  write('N: '); 
  readln(N); 
  for l := 1 to N do 
    begin 
      readln(m); 
      if (m mod 7 = 4) then 
        begin 
          inc(k); 
          s := s + m 
        end 
    end; 
  if (k > 0) then writeln(s / k) 
  else writeln('NO') 
end.