1. Дан двумерный массив. Отыскать сумму частей этого массива. 2. В

program zz1;
const n = 4;
b = 7; // задаем количество частей в массиве
var t, i, j, k, p:integer; // задаем переменные целого типа
m:array [1..n,1..b] of integer;
a:array [1..n] of integer;
begin
//1.
for i:=1 to n do
for j:=1 to b do // получаем числа и записываем их в массив
m[i,j]:=random(101)-50;
for i:=1 to n do // выводим приобретенный массив на экран
begin
for j:=1 to b do
write(m[i,j]:4);
writeln;
end;
for i:=1 to n do
for j:=1 to b do
k:=k + m[i,j]; // получаем сумму, добавляя к ней очередной элемент из массива
writeln( сумма элементов массива = , k); //выводим ответ
//3.
p:=1;
for j:=1 to b do
begin
for i:=1 to n do
p:=p*m[i,j];
writeln( произведение ,j,-го столбца = , p);
p:=1;
end;
// 2.
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
a[i]:=random(101);
for i:=1 to n do // выводим полученный массив на экран
write(a[i], );
writeln; // перебегаем на новейшую строку для вывода ответа
for i:=1 to n do // организуем цикл, в котором переберем все элементы массива
if a[i] = 0 then t:=t + 1; // получаем сумму, прибавляя к ней очередной элемент из массива
write( количество частей массива равных 0 = , t); //выводим ответ

end.