Нужно 1. найти сумму ряда: 5.6, 5.9, .. ,9.7 2.сравнить, что больше сумма ряда 8.5, 8..9 или произведение чисел от 1 до 3 с шагом 0.25 3. сформировать двумерный массив в размером 5*5, где элементы массива b[i, j] целые случайные числа в пределах [-5; 10]. вывести элементы массива в виде матрицы. 4. сформировать двумерный массив a размером n*m, где элементы массива a[i, j] - целые случайные числа в пределах [1; 30]. найти сумму всех элементов массива. вывести элементы массива в виде матрицы.

1) program gsdn; var k: integer;     z,n,i,l,s: real; begin k: =0; l: =5.6; s: =0; repeat k: =k+1; n: =0.3; i: =l+(n*k); s: =i+s; writeln(i); until i=9.8; writeln(s); end.2)  program afaf; var k,h: integer;     z,n,i,l,s,y: real; begin k: =0; h: =0; l: =8.5; s: =0; repeat k: =k+1; n: =0.1; i: =l+(n*k); s: =i+s; until i=40.9; k: =0; h: =0; l: =1; y: =1; repeat k: =k+1; n: =0.1; i: =l+(n*k); y: =i*y; until i=3; if y-s> 0 then writeln('сумма ряда 8.5, 8..9 меньше произведения чисел от 1 до 3 с шагом 0.25'); if y-s< 0 then writeln('сумма ряда 8.5, 8..9 больше произведения чисел от 1 до 3 с шагом 0.25'); if y-s=0 then writeln('сумма ряда 8.5, 8..9 равно произведению чисел от 1 до 3 с шагом 0.25'); end.3)  program dsagsa; var i,j,y: integer;     b: array[1..5,1..5] of integer; begin  for i: =1 to 5 do    for j: =1 to 5 do      begin        y: =random(16)-5;         b[i,j]: =y;       end;   for i: =1 to 5 do    begin      write('(');       for j: =1 to 5 do        write(b[i,j],' ');       write(')');       writeln;     end; end.4)  program fagasg; var i,j,i1,j1,y,s: integer;     a: array[1..50,1..50] of integer; begin  writeln('введите количество строк в массиве');   readln(i1);   writeln('введите количество столбцов в массиве');   readln(j1);     s: =0;     for i: =1 to i1 do      begin      write('(');       for j: =1 to j1 do        begin          y: =random(30)+1;           a[i,j]: =y;           s: =a[i,j]+s;           write(a[i,j],' ');         end;       write(')');       writeln;     end; end.матрицы немного коряво вышли, ну и чуть-чуть быдло кода)

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,-20,20); a.println;   var r: =a.groupby(x-> x).select(x-> (x.key,x.           where(x-> (x[1]> 1) and (x[0]> a.last));   if r.count> 0 then writeln(r.first[0])   else writeln(0) end. пример 10 14 9 -2 -5 -5 -20 -11 14 -13 14