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

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

1

Ответы и объяснения

2013-03-15T22:00:10+04:00

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.