Одномерный массив, сделать в turbo pascal

[lubov_morkov]

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

[kaljan775]

ну это из школы пример
1. функцию рандома найдите сами, чтобы найти сумму элементов надо идти по массиву, считая от нечетного индекса, переступая через два (0,2,4,6,8,10).
2. задаете А,
начинаете проматывать массив, внутри вставляете
c:=a[i] mod 5;
if (c=0)
b=b+1 // это счетчик количества элементов массива

3. условия неясны, все числа можно поделить на 5, результат только будет разный

[lubov_morkov]

не получается((((
вот попробовала певую часть сделать, ну вроде не правильно считает
program P5;
uses crt;
const n=10;
type m1=array [1..n] of integer;
var a:m1;
s :integer;
begin;
clrscr;
randomize;
for i:=1 to n do
begin;
a[i]:=random(30)-10;
write (a[i]:5);
end;
s:=0;
for i:=1 to n do
if i mod 2<>0 then s:=s+i;
writeln(s,' ');
readln;
end.

[ROMA2PVT]

 s:=s+i;

ещё бы ты индексы их суммируешь а не сами числа

 s:=s+a[i];

[Don Karleone]

поиск суммы

sum:=0;
for i:=1 to n do
  if odd(i) then Sum:=Sum + a[i]

[lubov_morkov]

не получается(((((((( слишком большое число выходит

program P5;
uses crt;
const n=10;
type m1=array [1..n] of integer;
var a:m1;
i,s,k :integer;
begin;
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:=random(30)-10;
write (a[i]:5);
end;
s:=0;
for i:=1 to n do begin
if odd(i) then s:=s+a[i]; end;

writeln(s,' ');


readln;
end.

[Don Karleone]

Сообщение от lubov_morkov

не получается(((((((( слишком большое число выходит

все должно работать

[ROMA2PVT]

она просто сливается с массивом.
перед

s:=0;

поставь

writeln;

[lubov_morkov]

))))))) точно

[Don Karleone]

задача 2

for i:=1 to n do
  if (Mas[i] > A) and (A mod 5 = 0) then Inc(Count);

задача 3

j:=0;
for i:=n downto 1 do
  if (Mas[i] < 0) and (abs(mas[i]) mod 5 = 2) then j:=i;

если такой элемент не найден, то j = 0;