Определить количество и вычислить сумму элементов одномерного массива N, кратных трем....

Question

Определить количество и вычислить сумму элементов одномерного массива N, кратных трем. ni/3*3=ni

Answer 1

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.

Comments

Я точно такую же программу писала. Итог: не работает она на буке. А что уж там говорить о компьютерах в моем учебном заведении..(( Препод тоже говорит, что якобы есть ошибка. НО ГДЕ?! Я в непонимании..((