задаются с клавиатуры N положительных чисел. найти среднее арифметическое двузначных оканчивающихся на 0 или 5.
помогите решать пожалуйста НА ПАСКАЛЕ
Ответы
Ответ дал:
1
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
7 лет назад