Выполнить в паскале

1. Массив из 10 целых чисел задан случайным образом в диапазоне от - 65 до - 45. Вывести на экран элементы, которые имеют четные номера.

Question

Информатика

Феликс

21 января, 20:32

Выполнить в паскале

1. Массив из 10 целых чисел задан случайным образом в диапазоне от - 65 до - 45. Вывести на экран элементы, которые имеют четные номера.

+3

Ответы (1)

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

Шуруня · Answer 1

Program gt;

var a:array[1 ... 10]of integer;

i:integer;

begin

randomize;

for i:=1 to 10 do

begin

a[i]:=random (21) - 65;

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

end;

end.

Выполнить в паскале1. Массив из 10 целых чисел задан случайным образом в диапазоне от - 65 до - 45. Вывести на экран элементы, которые имеют четные номера.

Выполнить в паскале

1. Массив из 10 целых чисел задан случайным образом в диапазоне от - 65 до - 45. Вывести на экран элементы, которые имеют четные номера.