С помощью Паскаля;

Дан двумерный массив (4 столбца, 3 строки), заполненный случайным образом. Вывести массив и найти:

а) количество отрицательных элеметов в 3 строке;

б) сумму элементов всего массива;

в) минимальный элемент в 1 столбце; Желательно, на каждый пункт отдельную задачу;)

Const n=3; m=4;

var a: array [1 ... n, 1 ... m] of integer;

k, sum, min, i, j:integer;

begin

Randomize;

writeln ('---A:---') ;

for i:=1 to n do begin

for j:=1 to m do begin

a[i, j]:=Random (20) - 10;

write (a[i, j]:6) ;

end;

writeln;

end;

/ / а

k:=0;

for j:=1 to m do

if a[3, j]<0 then k:=k+1;

writeln ('k=', k) ;

/ / б

sum:=0;

for i:=1 to n do

for j:=1 to m do sum:=sum+a[i, j];

writeln ('sum=', sum) ;

/ / в

min:=a[1,1];

for i:=2 to n do

if a[i, 1]
writeln ('min=', min) ;

end.