PASCAL-ABC.NET Здравствуйте,прошу помочь с не очень сложной задачкой.Условия:Заполнить...

Question

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

Comments

Вот всё что я смог.

---

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;8procedure 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.

Answer 1

Заводите счетчик, допустим, к, который считает к-во элементов столбцов, удовлетворяющих условию. Изначально к=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;

обратите внимание на индексацию! двумерный массив мы должны пройти не горизонтально (по строкам), как обычно, а по столбцам.

Comments

Благодарю.Мои каникулы пройдут спокойно :P

---

А что за ++?

---

k++ это тоже самое, что и k:=k+1;

---

с минусом аналогично