Составить программу для создания массива В из 100 чисел произвольным образом и вывести элементы массива на экран, имеющих четный порядковый номер. Помогите пожалуйста

1

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

2013-10-31T12:16:48+04:00
Если не ошибаюсь то так:
program l;
uses crt;
var
b:array [1..100] of integer;
i:integer;
begin
for i:=1 to 100 do
begin
b[i]:=random(101);
if (i mod 2 = 0) then writeln(b[i]);
end;
end.