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

Question

Виктор Егоров

Информатика

30 августа, 07:57

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

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Иван Фомичев · Answer 1

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.