Ввести два массива, состоящие из разного количества элементов. Найти, на сколько элементов один массив больше другого.
Ввести два массива, состоящие из разного количества элементов. Найти, на сколько элементов один массив больше другого.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы