PASCAL-ABC.NET Здравствуйте,прошу помочь с не очень сложной задачкой.
Условия:
Заполнить двумерный массив A случайными числами и построить одномерный массив B,в каждый елемент которого записано:
число елементов каждого стольбца двухмерного массива,значения которых равны заданному значению.
Вопросы вот где " и построить одномерный массив B,в каждый елемент которого записано:
число елементов каждого стольбца двухмерного массива,значения которых равны заданному значению." как это построить? У меня в голове нету абсолютно никаких мыслей.Очень прошу помочь.

1
Program Version10medium;
const
MaxN = 5; MaxM = 5;
type
MyArray = array[1..MaxN, 1..MaxM] of Integer;
var
A: MyArray;
B:Array[1..1000] of Integer;
i:Integer;8
procedure TInitMas(n, m: Integer; var A: MyArray;B:Array of integer);
const ot = 1; ido = 10;
var
i, j: Integer;
k,l:Integer;
begin
Randomize;
Writeln('Заполнение двумерного массива случайными числами');
for i := 1 to n do
begin
for j := 1 to m do
begin
A[i, j] := Random(ot, ido);
Write(A[i, j] : 4);
end;
Writeln();
end;
end;
procedure TWriteMas(n, m: Integer; A: MyArray);
var
i, j : Integer;
begin
Writeln('Результат работы программы');
for i := 1 to n do
begin
for j := 1 to m do
begin
Write(A[i, j] : 4);
end;
Writeln();
end;
end;
begin
Write('Значение каждого столбца двухмерного массива');
readln(b);
For i:= 1 to n do
begin
b[i]:= MaxN;
end;
TInitMas(MaxN, MaxM, A);
TWriteMas(MaxN, MaxM, A);
end.

Ответы и объяснения

2014-03-18T00:48:57+04:00
Заводите счетчик, допустим, к, который считает к-во элементов столбцов, удовлетворяющих условию. Изначально к=0.
for j:=1 to n do
 begin
for i:=1 to m do
  if a[i,j] = c (где с - заданное значение)
    then k++;
  b[j]:=k;
k:=0;
 end;

обратите внимание на индексацию! двумерный массив мы должны пройти не горизонтально (по строкам), как обычно, а по столбцам.
Благодарю.Мои каникулы пройдут спокойно :P
А что за ++?
k++ это тоже самое, что и k:=k+1;
с минусом аналогично