Еще масив

Еще масив
Данные массивы А [1 .. n] и В [1 .. m]. Составить программу построения массива С, состоящий из элементов массива А, которые совпадают с элементами В.
Pascal

  • да было уже!
    это 2 задание, ты еще напиши третье)
  • program qwe;
    var A, B, C: array[1..100] of integer;
    m, n, i, j, cnt: integer;
    begin
    write('Массив А | n = ');
    readln(n);
    write('Вводите ', n, ' элементов: ');
    for i:=1 to n do
    read(A);

    write('Массив B | m = ');
    readln(m);
    write('Вводите ', m, ' элементов: ');
    for i:=1 to m do
    read(B);

    for i:=1 to n do
    for j:=1 to m do
    if A = B[j] then begin
    inc(cnt);
    C[cnt]:=A;
    end;

    write('Массив C: ');
    for i:=1 to cnt do
    write(C,' ');
    end.