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