РЕБЯТА ПОМОГИТЕ!!! Заполнить массив случайными числами из ...

Moderator

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

 

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.