Сформировать массив из 10 случайных целых чисел из отрезка от -10

Сформировать массив из 10 случайных целых чисел из отрезка от -10 до 10 вывести номера чётных элементов массива

Задать свой вопрос
1 ответ
Program z1;
var a:array[1..10] of integer;
i:integer;
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
if i mod 2=0 then writeln(a[i]);
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт