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

Введем следующие обозначения: 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.