Написать программы, 1) дан первый элемент массива в, вычисленный случайным образом. сформировать массив в (15), в котором каждый последующий элемент массива больше предыдущего на удвоенный порядковый номер искомого элемента. вывод ответа осуществить в столбец. 2) дана таблица к(3, 3 заполнить её случайными числами. найти наибольший элемент главной диагонали. вывести на экран исходную таблицу к.

Var   arr : array [1..30] of integer;   sum, count, i, a : integer; begin   read (a);   for i : = 1 to 30 do read (arr[i]);   count : = 0; sum : = 0;   for i : = 1 to 30 do   begin     if arr[i] < 0 then sum : = sum + arr[i]     else if (arr[i] > 0) and (arr[i] < = a) then count : = count + 1;   end;   writeln (sum, ' ', count); end. var   arr : array [1..30] of integer;   i : integer; begin     for i : = 1 to 30 do read (arr[i]);   for i : = 30 downto 2 do     if arr[i] * arr[i - 1] < 0 then // проверка знака     begin       writeln (i - 1);         halt; // остановка программы     end;   writeln ('-1'); // таких нет end.

Var   a, b, c, aa, ab, ac : real; function arcsin (x : real) : real; begin arcsin : = arctan(x/sqrt(1-sqr(; end; //магия. в паскале нет функции арксинус или арккосинус, поэтому приходится выражать через арктангенс. begin   read (a, b, ac);   ac : = ac   * pi / 180; // перевод в радианы   c : = sqrt (sqr (a) + sqr (b) - 2 * a * b * cos (ac));   aa : = arcsin (a * sin (ac) / c);   ab : = pi - aa - ac;   writeln (a, ' ', b, ' ', c);   writeln (aa * 180 / pi, ' ',  ab * 180 / pi, ' ',  ac * 180 / pi); end.