Составить программу заполнения массива, состоящего из 17 элементов, случайными целыми числами их промежутка [-50; +50]. вывести на экран сначала все элементы массива, а затем с новой строки элементы с четными индексами.

Последняя часть вопроса поставлена некорректно. массив может в общем случае индексироваться, начиная с любого целого числа, например, с нуля или с единицы. в случае индексирования от нуля, четные индексы будут иметь первый, третий, пятый и т.д. по порядку элементы, а при нумерации от единицы - второй, четвертый, шестой и т.д. будем считать, что индекс массива совпадает с порядковым номером элемента, т.е. индексация в массиве идет от единицы, тогда выводу подлежат второй, четвертый, шестой и т.д. элементы. 1. современный "короткий" вариант // pascalabc.net 3.1, сборка 1190 от 05.03.2016 begin   var a: =arrrandom(17,-50,50); a.println;   a.where((x,i)-> odd( end. тестовое решение: -6 35 -48 -50 -16 -36 20 16 -10 32 -4 34 46 -45 14 13 -36 35 -50 -36 16 32 34 -45 13 2. традиционный ("школьный" вариант) - так до сих пор учат в школах // pascalabc.net 3.1, сборка 1190 от 05.03.2016 const   n=17; var   a: array[1..n] of integer;   i: integer; begin   randomize;   for i: =1 to n do begin       a[i]: =random(101)-50;       write(a[i],' ')       end;   writeln;   i: =2;   while i< =n do begin       write(a[i],' ');       i: =i+2       end;   writeln end. тестовое решение: 27 -29 10 -35 -48 -45 0 4 -50 -13 17 -41 12 26 38 26 23 -29 -35 -45 4 -13 -41 26 26

  var a: integer;   begin  for a: =1 to 10 do  writeln('имя',' ','фамилия');   end.