Двухмерный массив Delfi 7

[Niro]

А по конкретней?

[alex_fcsm]

Сообщение от Niro

    if a[i,j]=b[i,j] then c[i]:=a[i,j];

1.Размер массива С больше i.
2.(Вытекает из первого) Некорректный способ заполнения массива С

[Niro]

Размер массива С больше i.

чет не вкурил
Размерность массива С? так он одномерный по условию, а заполняем его по счетчику i, а не j что б элементы не затирались

[alex_fcsm]

Сообщение от Niro

чет не вкурил
Размерность массива С? так он одномерный по условию

Так размер его - в общем случае ВСЕ элементы матрицы, т.е. M на N

[Niro]

Дошло наконец то до меня
Так кажись пойдет

for i:=1 to n do
  for j:=1 to m do
    begin
    k:=k+1;
    if a[i,j]=b[i,j] then c[k]:=a[i,j];
   end;

[alex_fcsm]

Сообщение от Niro

Дошло наконец то до меня
Так кажись пойдет

for i:=1 to n do
  for j:=1 to m do
    begin
    k:=k+1;
    if a[i,j]=b[i,j] then c[k]:=a[i,j];
   end;

Еще k проинициализтруйте за циклом) Это конечно хорошо что вы разобрались, а что скажет топикстартер?

[superDmitry]

в этом коде есть хоть что то правильное?

program Mas;
Const
 m=40; n=40;
 Var
    n, m:integer; //Kol-vo n , m
 i,j:integer; //rabo4aya peremennaya
 b:array [1..m,1..n]of real; // Massiv  1
 a:array [1..m,1..n] of real; // Massiv  2

  begin
writeln('V-te kol-vo n <=40');
readln(n);
 writeln ('v-te massiv 1 ');
   for i:=1 to n do
    for j:=1 to m do
 writeln ('v-te massiv 2 ');
   for i:=1 to n do
  for j:=1 to m do
    begin
    k:=k+1;
    if a[i,j]=b[i,j] then c[k]:=a[i,j];
   end;
   writeln;
     end;
    writeln(c[i]);
    readln;
end.

[alex_fcsm]

M и N - константы

n, m:integer; //Kol-vo n , m

- эту строку удаляем и заводим одну переменную K. В начале программы не забудьте в не положить 0, а то потом удивляться будите)

for i:=1 to n do
 for j:=1 to m do

Вы же считываете массив, то должно быть

readln

Например так

for i:=1 to n do
 for j:=1 to m do
  readln(a[i,j]);

Аналогично заполняете и массив В

Массив С я так и не увидел)

c:array[1..m*n] of real;

Вывод массива С
Нет цикла

for i:=1 to k do
 write(c[i],' ');

Этот блок переделаем

begin
k:=k+1;
if a[i,j]=b[i,j] then c[k]:=a[i,j];
end;

Должно быть

if a[i,j]=b[i,j] then  begin
                            k:=k+1; 
                            c[k]:=a[i,j];
                          end;

Повнимательнее и исправляйте.

[superDmitry]

Вы мне оказали просто неоценимую помощь! Огромное вам спасибо!

единственное непонятно, почему он пишет что фактический параметр (n) должен быть переменной?

program Mas;
Const
m=40; n=40;
Var
k:integer;
i,j:integer; //rabo4aya peremennaya
b:array [1..m,1..n]of real; // Massiv 1
a:array [1..m,1..n] of real; // Massiv 2

begin
k:=0;
writeln('V-te kol-vo n <=40');
readln(n);
writeln('V-te kol-vo m <=40');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
 for j:=1 to m do
  readln(a[i,j]);
writeln ('v-te massiv 2 ');
for i:=1 to n do
 for j:=1 to m do
  readln(b[i,j]);
  
  c:array[1..m*n] of real;
  for i:=1 to k do
 write(c[i],' ');

if a[i,j]=b[i,j] then  begin
 k:=k+1;
  c[k]:=a[i,j];
  end;
writeln(c[i]);
readln;
end.

[alex_fcsm]

Ну вы же написали

Readln(n);

То есть ожидаете ввода. Хотя в константах N уже определена

Как вариант решения предлагаю удалить раздел констант

Const
m=40; n=40;

program Mas;
Var
k:integer;
i,j,n,m:integer; //rabo4aya peremennaya
b:array [1..10,1..10] of real; // Massiv 1
a:array [1..10,1..10] of real; // Massiv 2
c:array[1..100] of real;

begin
k:=0;
writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
writeln ('v-te massiv 2 ');
for i:=1 to n do
for j:=1 to m do
readln(b[i,j]);


for i:=1 to n do
 for j:=1 to m do
  if a[i,j]=b[i,j] then begin
                             k:=k+1;
                             c[k]:=a[i,j];
                           end;
writeln;
for i:=1 to k do
writeln(c[i]);
readln;
end.