Question

Ввести два массива, состоящие из разного количества элементов. Найти, на сколько элементов один массив больше другого.

Answer 1

program z1;
const nmax[100];
var a,b:array of integer[1..nmax];
var i,j:integer;
begin
i=1;
while not eol do
begin
read(a[i]);
i++;
end;
readln();
 j=1;
while not eol do
begin
read(a[j]);
j++;
end;
write(abs(j-i));
end.