1. сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу: 1-й равен случайному трехзначному числу; 2-й равен текущему индексу, увеличенному в 10 раз; 3-й равен сумме двух предыдущих элементов. (программу надо выполнить в паскале)

Var     m: array [1..9] of integer;       i: integer; begin for 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],'   ');     end end.

Program z1; uses crt; var m: array [1..9] of integer;   i: integer; begin for 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 do m[i]: = m[i-2] + m [i-1]; writeln ('массив'); for i : = 1 to 9 do write (m[i],'   '); end.

Var i,s: integer; begin                                         s: =0; for i: =0 to 9 do     {цикл, перебираем цифры от 0 до 9 и присваиваем их       переменной   i  }       s: =s+sqr(i);                           {sqr(i)- квадрат i, вычисляем квадрат и добавляем его в }                                                     общую сумму s} writeln('сумма квадратов цифр = ',s);         {выводим сумму} end.

Var i,j: integer; mas: array [1..10] of integer; begin randomize; for i: = 1 to 10 do  mas[i]: =random(101); for j: =1 to 10-1 do for i: =1 to 10-j do if mas[i] mod 10 > mas[i+1] mod 10 then swap(mas[i],mas[i+1]); for i: =1 to 10 do writeln(mas[i]); end.2)var a: array[1..10] of integer;   i,j: integer;   begin  randomize; for i: =1 to 10 do a[ i]: =random(101);   for i: =1 to 4 do for j: =i+1 to 5 do if a[ i] > a[ j] then swap(a[i],a[j]);   for i: =5 to 9 do for j: =i+1 to 10 do  if a[ i] < a[ j] thenswap(a[i],a[j]); ;   for i: =1 to 10 do  write(a[ i],' ');   end.