Question

1.     Составить программу, выводящую на экран элементы массива A[1..16]  в два столбика:

в первый - элементы с нечетными индексами, во второй  - с четными..

Answer 1

var A: array [1..16] of integer;

i: integer;

begin

randomize;

for i := 1 to 16 do begin

A[i] := random(100);

end;

i := 1;

repeat

write(A[i]);

write("t");

writeln(A[i + 1]);

i := i + 2;

until i < 17;

end.