1. Дан двумерный массив. Найти сумму элементов этого массива. 2. В одномерном массиве сосчитать количество элементов равных 0 3. Дан двумерный массив. Найти произведение элементов каждого столбца.

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.