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

Question

Информатика

Ритоша

7 августа, 07:47

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

+2

Ответы (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.