Опубликовано 13.06.2017 по предмету Другие предметы от Гость >> <<

Определить количество и вычислить сумму элементов одномерного массива 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.