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.
Рисунок ответа прикрепила..........+ само задание
А только у меня фото не отображается?
1) y = 12, x = 3.
2) k = 30.
3) s = 61.