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

Question

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

Comments

паскаль трубо

Answer 1

Const n=10; m=5;
var
   i,j,k:integer;
   A:array[1..n] of integer;
   B,C:array[1..m] of integer;
begin
   writeln('Введите элкменты массива');
   for i:=1 to n do readln(a[i]);
   j:=0; k:=0;
   for i:=1 to n do
     if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
     else begin k:=k+1; C[k]:=A[i] end;
   writeln('Массив А');
   for i:=1 to n do write(A[i],' ');
   writeln;
   writeln('Массив B');
   for i:=1 to j do write(B[i],' ');
   writeln;
   writeln('Массив C');
   for i:=1 to k do write(C[i],' ');
   writeln
end.