[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: Пользуемся тегами!

[roamer]

В таком тексте трудно разобраться.
Лучше бы его структурировать.
Но если следовать тому, что там есть, то как вариант, должно быть так (синтаксис не проверял, извините) :

Код:

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
  c:array[1..m*n] of real;
begin
  //---------------------------------------
  //Значения констант нельзя менять, если они объявлены так, как объявлены                                                                                                                                          
  //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
   begin                   
    for j:=1 to m do
     begin                   
       write('a(',i,',',j,')=');
       readln(a[i,j]);
     end;          
  end;          
  //---------------------------------------                                                                                      
    
  //---------------------------------------                                                                                      
  writeln ('v-te massiv 2 ');
  for i:=1 to n do
   begin                   
    for j:=1 to m do
     begin                   
       write('b(',i,',',j,')=');
       readln(b[i,j]);
     end;          
  end;          
  //---------------------------------------                                                                                      
    
  //---------------------------------------                                                                                      
  k:=0;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
       if a[i,j]=b[i,j] then begin
          k:=k+1;
          c[k]:=a[i,j];
          writeln('c(',k,')=',c[k]);
       end;               
    end;                 
  end;                 
  //---------------------------------------                                                                                      
    
  readln;
end.

[melnikovd]

Код:

program variant618;
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.

Admin: Повторяю, читаем Правила, при рецедиве последуют санкции.

так правильно?