Одномерные Массивы

[ТРОЯН=)]

Нужно проверить элементы двух массивов, и вывести количество совподающих!Помогите плиз чё то затупил((

[Тупой]

я проверил, все выводится... в чем проблема то?

пусть N - колво элементов в массиве a и b
массив с - массив совпадающих элементов
x - число совпадающих
тогда


for i:=1 to N do
for j: = 1 to N do
if (b[j] = a[i]) then
c[i]:=c[i] + 1

[ТРОЯН=)]

Дык как вывести)))))))

[Тупой]

write() или writeln()

[Sazary]

Сообщение от Тупой

for i:=1 to N do
for j: = 1 to N do
if (b[j] = a[i]) then
c[i]:=c[i] + 1

Честно говоря, смысл уловить не смог.. Может, вы имели в виду это:

for i:=1 to N do
for j: = 1 to N do
if (b[j] = a[i]) then
  begin
  c[x]:=a[i];
  inc(x);
  end;

или

for i:=1 to N do
 c[i] := 0;
for i:=1 to N do
for j: = 1 to N do
if (b[j] = a[i]) then
  c[i]:=c[i]+1;

?
-----------------
Вот.. Выводит общие элементы массивов a и b (повторы не выводятся).

uses crt;
const M=7; N=7;
var a : array[1..M] of integer;
b : array[1..N] of integer;
c : array[1..M] of integer;
i,j,k,cnt : integer;
fl : boolean;
begin
clrscr;
randomize;
for i:=1 to M do
 begin
 a[i] := random(10);
 write(a[i]:4);
 end;
writeln;
writeln;
for i:=1 to N do
 begin
 b[i] := random(10);
 write(b[i]:4);
 end;
writeln;
writeln;
{------}
cnt := 0;
for i:=1 to M do
  begin
  fl := false;
  for j:=1 to N do
    if a[i] = b[j] then
      begin
      fl := true;
      for k:=1 to i-1 do
       if a[i] = a[k] then
         begin
         fl:=false;
         break;
         end;
      if fl then
        begin
        inc(cnt);
        c[cnt] := a[i];
        break;
        end;
      end;
  end;

{----------}
writeln('Vsego: ',cnt);
for i:=1 to cnt do
  write(c[i]:4);

readln;
end.