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

Question

Заполнить массив случаными числами из промежутка 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.

Answer 1

Begin забыли дописать, после инициализации переменных

Comments

program dz2;
const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
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.