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

1-й равен случайному трехзначному числу;
2-й равен текущему индексу, увеличенному в 10 раз;
3-й равен сумме двух предыдущих элементов.

(программу надо выполнить в Паскале)

program z1;uses crt;varm: array [1..9] of integer; i: integer;beginfor i:= 1 to 3 do  m[i]:= random (100+899);for i := 4 to 6 do  m[i]:= i*10;for i:= 7 to 9 dom[i]:= m[i-2] + m [i-1];writeln ('массив');for i := 1 to 9 dowrite (m[i],'  ');end.

var  m: array [1..9] of integer;   i: integer;beginfor i:= 1 to 9 do   begin   if i mod 3=1 then m[i]:= random(100,999);   if i mod 3=2 then m[i]:= i*10;   if i mod 3=0 then m[i]:= m[i-2] + m[i-1];   write (m[i],'  ');   endend.