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

Введем следующие обозначения: a - массив из n элементов; a[i] - значения элементов массива a; b - массив из k элементов; b[i] - значения элементов массива b;  c и d – количество элементов массивов a и b соответственно, которые будут подсчитываться в процессе выполнения программы. Будем использовать оператор цикла с параметром for. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadaca1;

uses crt;

const n=2; const k=4;

var i, c, d: integer;

a:array[1..n] of integer;

b:array[1..k] of integer;

begin

c:=0; d:=0;

for i:=1 to n do  begin

writeln (\'vvedite znachenie a[i]:\');

readln(a[i]);

c:=c+1;

end;

for i:=1 to n do

write(a[i], \' \');

writeln;

writeln(\'c=\', c);

for i:=1 to k do  begin

writeln (\'vvedite znachenie b[i]:\');

readln(b[i]);

d:=d+1;

end;

for i:=1 to k do

write(b[i], \' \');

writeln;

writeln(\'d=\', d);

if c>d then writeln(\'massiv a bolshe masiva b na \', c-d)

else writeln(\'massiv b bolshe masiva a na \', d-c);

end.