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.