Question

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

Answer 1

begin

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

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

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

end.

Answer 2

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]<0 then k:=k+1 end;

writeln;

end.