Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Дан массив,состоящий из 20 элементов.Необходимо найти элементы кратным 5 и найти сумму
Сделать блок-схему и программу,пжл!)
ОЧЕНЬ СРОЧНО НАДО!!!!

Ответ оставил Гость

Var
c:array [1..20] of integer;
i,n:integer;
Begin
randomize;
for i:=1 to 20 do
c[i]:=random(50);
for i:=1 to 20 do
write(c[i], );
for i:=1 to 20 do
if c[i] mod 5=0 then n:=n+c[i];
writeln;
writeln(Сумма: ,n);
End.