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

а) найти элементы равные 1.

б) найти индекс нечетных элементов.

в) Найти количество положительных элементов.

Const n=5;

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

k, i : integer;

begin

Randomize;

for i:=1 to n do

begin

a[i]:=random (26) - 10;

write (a[i],' ') ;

end;

writeln;

writeln ('элементы равные 1 имеют номера:') ;

for i:=1 to n do if a[i]=1 then write (i:3) ;

writeln;

writeln ('индексы нечетных элементов:') ;

for i:=1 to n do if a[i] mod 20 then write (i:3) ;

writeln;

k:=0;

for i:=1 to n do if a[i]>0 then k:=k+1;

writeln ('количество положительных элементов=', k) ;

end.