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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
