Синформатикой: написать программу, которая в массиве размерностью в 10 на 12 находит сумму: 1)всех элементов массива. 2) каждого столбца. 3) каждой строки. 10

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.

Const       n = 10; var       i, c: integer;       a, w: array[1..n] of integer; begin       randomize;             writeln('исходный массив: ');       for i : = 1 to n do       begin               a[i] : = random(201) - 100;               write(a[i], ' ');       end;       writeln;             c : = 0;       for i : = 1 to n do               if a[i] > 0 then               begin                       c : = c + 1;                       w[c] : = a[i];               end;             writeln('кол-во положительных элементов: ', c);       for i : = 1 to n do       begin               if a[i] < = 0 then               begin                       c : = c + 1;                       w[c] : = a[i];               end;       end;             writeln('результат: ');       for i : = 1 to c do               write(w[i], ' '); end.

//pascalabc.net //naaman var       x, y : real; begin       write('введите значение х: ');       readln(x);       if (2 * x + 8 = 0) then begin             writeln('для этого значения х решения нет.');             writeln('конец программы');             end       else begin             y : = (5 * x * x - 4) / (2 * x + 8);             writeln('результат вычислений: ',y)             end end.