[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: Повторяю, читаем Правила, при рецедиве последуют санкции.

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