1) Ввести массив A из 25 элементов. Cформировать массив B из элементов массива А, кратных трем.

2) Даны массив A и B из n элементов. Cформировать массив C из элементов массивов А и B, чередуя элементы.

1) var A, B: array[1 ... 25] of integer;

i, x: integer;

begin

writeln ('введите элементы массива A: ');

for i : = 1 to 25 do begin

read (A[i]);

if A[i] mod 3 = 0 then

begin

x : = x + 1;

B[x] : = A[i];

end;

end;

write ('элементы массива A, кратные трём: ');

for i : = 1 to x do begin

write (B[i], ' ');

end;

end.

2) var A, B, C: array[1 ... 10000] of integer;

i, n, x: integer;

begin

writeln ('введите размеры обоих массивов: ');

read (n);

write ('введите элементы массива A: ');

for i : = 1 to n do begin

x : = x + 1;

read (A[i]);

end;

write ('введите элементы массива B: ');

for i : = 1 to n do begin

read (B[i]);

end;

write ('элементы массива C: ');

for i : = 1 to x do begin

C[i] : = A[i];

write (C[i], ' ');

C[i] : = B[i];

write (C[i], ' ');

end;

end.