Question

Дан массив A, состоящий из N элементов. Элементы массива - произвольные   целые числа. Распечатать элементы в две строки: в первой строке элементы   с нечетными индексами, а во второй - элементы с четными индексами

Answer 1

USES Crt;
 CONST   N=25;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I: BYTE;
 BEGIN
   ClrScr;  Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     A[I]:=Random(20);    Write(A[I]:3);
   end;   WriteLn;
   I:=1;
   WriteLn(' Элементы с нечетными индексами');
   WHILE I<=N DO Begin
     Write(A[I]:3);   I:=I+2;
   End;   WriteLn;
   I:=2;
   WriteLn(' Элементы с четными индексами');
   WHILE I<=N DO Begin
     Write(A[I]:3);   I:=I+2;
   End;
 END.