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

+ 0 -

2002sona2013

18 авг. 2013 г., 10:55:27 (10 лет назад)

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

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

+ 0 -

Guerrero17

18 авг. 2013 г., 11:32:44 (10 лет назад)

Program Version10medium;
const
MaxN = 5; MaxM = 5;
type
MyArray = array[1..MaxN, 1..MaxM] of Integer;

+ 0 -

Nicetrineev

18 авг. 2013 г., 12:59:33 (10 лет назад)

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

+ 0 -

Тяна

18 авг. 2013 г., 14:12:40 (10 лет назад)

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;

+ 0 -

Logika2014

18 авг. 2013 г., 15:01:24 (10 лет назад)

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;

+ 0 -

Wwwkamilaboka

18 авг. 2013 г., 16:10:57 (10 лет назад)

begin
Write('Значение каждого столбца двухмерного массива');
readln(b);
For i:= 1 to n do
begin
b[i]:= MaxN;
end;
TInitMas(MaxN, MaxM, A);
TWriteMas(MaxN, MaxM, A);
end.