Дан массив С(10). Сформируйте из него массивы А(5) и В(5), предварительно определив их длину. В массив А включите элементы из массива С с четными индексами, а в В— с нечетными. Выведите на экран массивы А(5), В(5) и С( 10).

program Massivi; var i: Byte; c: array [1..10] of Integer; a, b: array [1..5] of Integer; begin // Zapolnee massiva c: for i:=1 to 10 do begin // Wtire('C['+IntToStr(i)+']='); ReadLn(C[i]); end; // Formirovanie massivov a i b. for i:=1 to 10 do // if i mod 2 = 0 then a[i div 2]:=c[i] else b[i div 2 + 1]:=c[i]; // Write('Massiv a: '); // for i:=1 to 5 do Write(IntToStr(a[i])+', '); // WriteLn(''); // Write('Massiv b: '); // for i:=1 to 5 do Write(IntToStr(b[i])+', '); // WriteLn(''); // Write('Massiv c: '); // for i:=1 to 10 do Write(IntToStr(c[i])+', '); end.