Составьте программу,которая формирует массив из шестнадцати случайных целых чисел от-20...

Question

Составьте программу,которая формирует массив из шестнадцати случайных целых чисел от-20 до 20 и находит индексы четных элементов;

Comments

Мало баллов за задачу, хоть сейчас скину, но больше баллов хочу.

---

1) язык программирования? 2)с какого числа индексируются элементы массива (с 1 или с 0, или с какого-то другого)?

Answer 1

Program ABC;

uses crt;

var

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

  k,i,n:integer;

begin

randomize;

for i:=1 to 16 do

   begin

   a[i]:=random(41)-20;

   write(a[i],' ');

   end;

writeln;

for i:=1 to 16 do begin if (a[i] mod 2=0) and (a[i]<>0) then write(i,' '); if a[i]

writeln;

end.

Comments

ноль зачем выбросили?

Answer 2

begin

 var a := ArrRandom(16, -20, 20); a.Println;

 a.Numerate(0).Where(x -> x[1].isEven)

 .Select(x -> x[0]).Println;

end.

---

Comments

Если хотите, чтоб по порядку с 1, уберите 0 из Numerate(0) или поставьте любое число, который вы хотите, чтоб оно считалось индексом первого элемента массива