С помощью Паскаля; Дан двумерный массив(4 столбца, 3 строки), заполненный случайным...

Question

С помощью Паскаля;
Дан двумерный массив(4 столбца, 3 строки), заполненный случайным образом. Вывести массив и найти:
а)количество отрицательных элеметов в 3 строке;
б)сумму элементов всего массива;
в)минимальный элемент в 1 столбце; Желательно, на каждый пункт отдельную задачу;)

Answer 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;<br>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.