Сформировать массив случайным образом вывести на экран элементы, стоящие на четных местах

Question

Информатика

Мелеша

17 января, 17:53

Сформировать массив случайным образом вывести на экран элементы, стоящие на четных местах

+5

Ответы (1)

Знаете ответ на вопрос?

Емилия · Answer 1

Var

a:array[1 ... 100] of integer;

i:integer;

begin

for i:=1 to 100 do

begin

a[i]:=random (100) + 1

if ((i mod 2) = 0) then write (a[i]," ") ;

end;

end.