Светлана
4 год назад
задаются с клавиатуры N положительных чисел. найти среднее арифметическое двузначных оканчивающихся на 0 или 5.Пожалуйста посчитайте решать пожалуйста НА ПАСКАЛЕ
ОТВЕТЫ
Totka
Oct 24, 2020
program nchsk;
uses
crt;
var
n, s, k, c, cn: integer;
var
sr: real;
begin
writeln('Сколько чисел будете вводить?');
readln(n);
c := 0;
s := 0;
writeln;
writeln('Вводите:');
while c <> n do
begin
readln(k);
if ((k div 10) > 0) and ((k div 10) < 10) and ((k mod 5) = 0) then
begin
s := s + k;
cn := cn + 1;
end ;
c := c + 1;
end;
writeln;
sr := s / cn;
writeln('Среднее арифметическое двухзначных чисел, кратных пяти: ', sr);
readln;
end.
535
Смежные вопросы: