Ввести исходный и вспомогательный (с разрешёнными элементами) массивы. Определить и вывести на экран, сколько элементов исходного массива имеют разрешенные значения — Pascal(Паскаль)

program PascalGuru;

var
  X, Y: array [1 .. 50] of integer;
  n1, n2, i, j, kol: integer;
  b: boolean;

begin
  writeln('Vvedite razmer massiva X:');
  read(n1);
  writeln('Vvedite massiv X:');
  for i := 1 to n1 do
  begin
    write('X[', i, ']=');
    readln(X[i]);
  end;

  writeln('Vvedite razmer dopolnitelinogo massiva Y:');
  read(n2);
  writeln('Vvedite massiv Y:');
  for i := 1 to n2 do
  begin
    write('Y[', i, ']=');
    readln(Y[i]);
  end;

  write('Vot vvedennyy vami massiv X: ');
  for i := 1 to n1 do
    write(X[i], '  ');
  writeln;

  write('Vot razresennye el-ty (massiv Y): ');
  for i := 1 to n2 do
    write(Y[i], '  ');
  writeln;

  kol := 0;
  for i := 1 to n1 do
  begin
    b := false;
    for j := 1 to n2 do
      if X[i] = Y[j] then
        b := true;
    if b then
      inc(kol);
  end;

  writeln('Otvet: ', kol);

  readln;

end.

Leave a Comment