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