Вот задание:
В численных матрицах X(3x4) и Y(4х4) найти количество столбцов начинающихся на заданное число.
А вот та программа которая у меня работает не правильно...
Program pr1_2;
type mas1=array[1..3,1..4]of integer;
mas2=array[1..4,1..4]of integer;
Var i,j,k:integer;
A:mas1;
B:mas2;
Procedure Poisk(m1:mas1;m2:mas2);
Var k,I,j,d,f:integer;
Begin
for i:=1 to 3 do
If m1[1,i]=1 then k:=k+1;
for j:=1 to 4 do
If m1[1,j]=1 then d:=d+1;
writeln('k=',k,'d=',d);
readln;
end;
Begin
writeln('MaccuB 1');
randomize;
for i:=1 to 3 do
begin
For j:=1 to 4 do
begin
A[i,j]:=random(20);
write(a[i,j]:6);
end;
writeln;
end;
writeln('MACCuB 2');
randomize;
for i:=1 to 4 do
begin
For j:=1 to 4 do
begin
B[i,j]:=random(20);
write(B[i,j]:6);
end;
writeln;
end;
poisk(a,b);
readln;
readln;
end.
Сообщение отредактировано: volvo -