Создать массив, состоящий из троек подряд идущих одинаковых элементов.

Question

Информатика

Полинария

12 августа, 23:52

Создать массив, состоящий из троек подряд идущих одинаковых элементов.

+3

Ответы (1)

Знаете ответ?

Твердислав · Answer 1

Program test;

var

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

i, n:integer;

begin

randomize;

for i:=1 to 99 do begin

n:=random (1,30) ;

if i mod 3 = 0 then begin

a[i]:=n;

a[i-1]:=n;

a[i-2]:=n;

end;

end;

for i:=1 to 99 do writeln (a[i]) ;

end.