дан двумерный массив(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]<min then min:=a[i,1];
writeln('min=',min);
end.

 Задача нелогичная, получается, что он должен обучиться 5 операциям (4 действия и числа), на все эо дано 3 месяца. 

1. Пусть за 1й мес он выучит числа - то есть 1 операцию.

2. За 2й мес он выучит + или -, то есть 1 операцию.

3. За 3й мес он выучит или -, или *, или : ЛИБО или +, или *, или : - то есть 1 операцию.

Всего за 3 месяца он может выучит 3 операции из желаемых 5 независимо от того, в какой последовательности он будет осваивать их.

ответ: не успеет, ему необходимо 5 месяцев либо увеличить количество операций, изучаемыз в месяц.

Как-то так я думаю

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 Задача нелогичная, получается, что он должен обучиться 5 операциям (4 действия и числа), на все эо дано 3 месяца. 

1. Пусть за 1й мес он выучит числа - то есть 1 операцию.

2. За 2й мес он выучит + или -, то есть 1 операцию.

3. За 3й мес он выучит или -, или *, или : ЛИБО или +, или *, или : - то есть 1 операцию.

Всего за 3 месяца он может выучит 3 операции из желаемых 5 независимо от того, в какой последовательности он будет осваивать их.

ответ: не успеет, ему необходимо 5 месяцев либо увеличить количество операций, изучаемыз в месяц.

Как-то так я думаю