Lekyalva 23 октября 2019 в 10:01
PASCAL С клавиатуры вводится 30 чисел .Сколько среди них нулей .Найти среднее арифметическое из суммы чисел кратных 5-ти.
PASCAL С клавиатуры вводится 30 чисел .Сколько среди них нулей .Найти среднее арифметическое из суммы чисел кратных 5-ти.
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 k2lt;gt;0
then writeln(s/k2)
else writeln(Нет чисел, кратных 5);
end.
Пример (для 10 чисел):
Введите 30 чисел:
12
65
0
81
20
0
47
15
32
19
k1 = 2
20
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 k2lt;gt;0
then writeln(s/k2)
else writeln(Нет чисел, кратных 5);
end.
Пример (для 10 чисел):
Введите 30 чисел:
12
65
0
81
20
0
47
15
32
19
k1 = 2
20
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.
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.
Компьютеры и вычисления
47
18
Для комментирования необходимо зарегистрироваться на сайте