[melnikovd]

Уважаемые форумчане! Пожалуйста, укажите на ошибки!

Заданы матрицы A(n*m) и B(n*m). Сравнить их соответствующие элементы (с одинаковыми номерами) и записать равные элементы в вектор C .

Код:

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.

Admin: Пользуемся тегами!