Заполнить массив случаными числами из промежутка 1-100 и определить их в массиве: количество двузначных чисел кратных 3 (Pascal) Я написал программу,но она не работает, в чем может быть проблема? program dz2; const n=10; var a...
Заполнить массив случаными числами из промежутка 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.
Гость
Ответ(ы) на вопрос:
Гостьbegin забыли дописать, после инициализации переменных
Не нашли ответ?
Похожие вопросы