Developing.ru

1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,20]. найти сумму элементов, имеющих нечетные индексы.
2.Подсчитать количество эдементо массива, значения которых больше заданного числа A и кратных 5
3. найти номер прервого отрицательного элемента, делящегося на 5 с остатком 2.

[syntax='delphi']program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
lim_a = -10;
lim_b = 20;

var
Arr: array[1..20] of integer;
i, A: integer;
Sum: integer = 0;
Count: integer = 0;
Num: integer = 0;

begin
write('A: ');
readln(A);
Randomize;
for i := Low(Arr) to High(Arr) do
begin
Arr := Random(lim_b - lim_a + 1) + lim_a;
write(Arr, ' ');
if i mod 2 <> 0 then
Sum := Sum + Arr;
if (Arr > A) and (Arr mod 5 = 0) then
Inc(Count);
if Num = 0 then
if Arr < 0 then
if Abs(Arr) mod 5 = 2 then
Num := i;
end;
Writeln;
writeln('Sum: ', Sum);
writeln('Count: ',Count);
writeln('Num: ',Num);
readln;
end.[/syntax]