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.