Определить количество и вычислить сумму элементов одномерного массива N, кратных трем. ni/3*3=ni
Определить количество и вычислить сумму элементов одномерного массива N, кратных трем. ni/3*3=ni
Гость
Ответ(ы) на вопрос:
Гостьprogram odnmassiv;
uses crt;
Var N:array[1..50] of integer; i,s:integer;
Begin
randomize;
For i:=1 to 50 do
Begin N[i]:=random(31);
write(N[i]:3);
if N[i] mod 3 = 0 then s:=s+N[i];
End;
writeln;
writeln('Сумма элементов кратных 3 = ',s);
readln;
End.
Не нашли ответ?
Похожие вопросы