Question

PASCAL С клавиатуры вводится 30 чисел .Сколько среди них нулей .Найти среднее арифметическое из суммы чисел кратных 5-ти.

Answer 1

Var a,k1,s,k2,i:integer;
begin
k1:=0; s:=0; k2:=0;
writeln('Введите 30 чисел:');
for i:=1 to 30 do
 begin
 readln(a);
 if a=0 then k1:=k1+1;
 if a mod 5 = 0 then begin s:=s+a; k2:=k2+1; end;
 end;
writeln('k1 = ',k1);
if k2<>0 
 then writeln(s/k2)
 else writeln('Нет чисел, кратных 5');
end.

Пример (для 10 чисел):
Введите 30 чисел:
12
65
0
81
20
0
47
15
32
19
k1 = 2
20

Answer 2

Var mas: array[1..30] of integer;
n:Integer;sum:Integer;
k, null:Integer;
begin 
for var i:=1 to 30 do 
   Readln(mas[i]);       
for var i:=1 to 30 do   
begin    
if (mas[i] mod 5 = 0) then       
begin          
sum:=sum+mas[i];         
k:=k+1;      
end;     
if (mas[i] = 0) then null:=null+1;   
end;   
Writeln(null);   
Writeln(sum div k);
end.