Составить программу для создания массива В из 100 чисел произвольным образом и…

Если не ошибаюсь то так: program l; uses crt; var b: array [1… 100] of integer; i: integer; beginfor i: =1 to 100 do beginb[i]: =random (101); if (i mod 2=0) then writeln (b[i]); end; end.