РЕБЯТА ПОМОГИТЕ!!! Заполнить массив случайными числами из промежутка (1-100) и определить...

Question

РЕБЯТА ПОМОГИТЕ!!! Заполнить массив случайными числами из промежутка (1-100) и определить в массиве C[1..30]кол-во чисел кратным 3

Answer 1

Пишу как в паскале:

 

Var i:integer;

c:array[1..100] of integer;

begin

 randomize;

for i:=1 to 100 do c[i]:=random(100)+1;

end.

 

Про кратные 3 (считая что значения массива уже заданы):

Var i,a:integer;

c:array[1..30] of integer;

begin

a:=0;

for I:=1 to 30 do if (c[i]mod3)=0 then a:=a+1; 

end.

 

a - количество чисел, кратных 3. (c[i]mod3) - остаток деления c[i] на 3.