Информатика

Евграф

7 сентября, 23:22

Заполнить массив случаными числами из промежутка 1-100 и определить их в массиве: количество двузначных чисел кратных 3

(Pascal)

Я написал программу, но она не работает, в чем может быть проблема?

program dz2;

const n=10;

var a:array[1 ... n] of integer;

var i, s:integer;

s:=0;

randomize:

for i:=1 to n do

a[i]:=random (100) + 1;

for i:=1 to n do

writeln (a[i]) ;

for i:=1 to n do

if a[i] mod 3 = 0 then

s:=s+1

writeln (s) ;

end.