Вводиться n чисел , определить сумму чисел кратных 5 и 10 , а так же их количество

sychev66 sychev66    2   07.07.2019 04:00    1

Ответы
umnyjchelovek umnyjchelovek  30.07.2020 07: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.

 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика