Вводиться n чисел , определить сумму чисел кратных 5 и 10 , а так же их количество
Const n=10;
var a: array [1..n] of integer; - массив чисел
var i,j,s: integer;
begin
j:=0;
s:=0;
for i:=1 to n do a[i]:=random(100);
for i:= 1 to n do
begin
if ((a[i] mod 5 = 0) or (a[i] mod 10 = 0)) then
begin
s:=s+a[i]; j:=j+1;
end;
end;
writeln(число чисел, кратных 5 и 10 = , j);
writeln(сумма чисел = ,s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
