Дан массив,состоящий из 20 случайных чисел. подсчитайте сумму элементов кратных 5. решите

alexandra189 alexandra189    1   14.09.2019 10:10    0

Ответы
N1R2 N1R2  07.10.2020 13:59
Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика