Помогите пожалуйста с Паскалем!!
С клавиатуры вводят 25 целых чисел. Найти среднее арифметическое тех из них которые кратны 4, но не оканчиваются на 4
Ответы
Ответ дал:
0
var a,s,k: integer;
begin
s:=0;
k:=0;
for i:=1 to 25 do
begin
read(a);
if (a mod 4=0)and(a mod 10<>4)
then begin s:=s+a; k:=k+1; end
end;
if k<>0 then writeln(s/k)
else writeln('Нет нужных чисел');
end.
Пример (для 5 чисел):
12 44 15 48 24
30
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад