Задача: Найти количество одинаковых элементов в двух массивах и распечатать их значения.

program m2;
const max=10;
var a:array[1..max] of real;
b:array[1..max] of real;
n,m,i,j,l:integer;
begin
writeln('введи количество элементов в массивах А и В, n<=',max); readln(n,m); for i:=1 to n do read(a[i]); for j:=1 to m do read(b[j]); writeln('исходные массивы'); for i:=1 to m do write(a[i]:3:1); writeln; for j:=1 to m do write(b[j]:3:1); writeln; l:=0; writeln('одинаковые элементы'); for i:=1 to n do for j:=1 to m do if (a[i]=b[j]) then begin l:=l+1; writeln(A[i]) end ; writeln ('l=', l:2); end

Пояснения
1. Количество элементов в массивах А и В задается с помощью оператора readln (n, m) и может изменяться в пределах от 0 до max (max = 10).

Комментарии запрещены.