Ребят, что я делаю не так? одномерный массив.

[rtif]

дан массив целых чисел из отрезка [-150;150].Определить, сумму четных , положительных элементов?
вот код, как я сделала:uses crt;
var
a:array[1..100] of integer;
i: byte;
n,k:integer;
begin
k:=0;
writeln(ââåäèòå ðàçìåðíîñòü ìàññèâà);
readln(n);
for i:=1 to n do
begin
a:=random(301)-150;
write(a:5);
end;
write;
for i:=i to n do
if (a>0) and (a mod 2=0) then
k:=k+a;
writeln(k);
end.

почему-то у меня выходят наоборот нечетные элементы, и сумма странная?

[Arhangel7]

var 
a:array[1..100] of integer; 
i: byte;{зачем byte, нужно integer} 
n,k:integer; 
begin 
k:=0; 
writeln(ââåäèòå ðàçìåðíîñòü ìàññèâà); 
readln(n); 
for i:=1 to n do 
begin 
a:=random(301)-150;{ a -  массив, нужно a[I] } 
write(a:5); 
end; 
write; 
for i:=i to n do 
if (a>0) and (a mod 2=0) then { тут проверяем на кратность 2 ? }
k:=k+a; 
writeln(k); 
end.

[Serge_Bliznykov]

 a[i] := random(301) - 150;
...
if (a[i]>0) and (a[i] mod 2 = 0) then k := k + a[i];

p.s. чтобы числа были случайными, нужно в начале программы вызвать иницилизацию сч.случайны чисел:

  Randomize;

[TinMan]

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

вот код, как я сделала:

кеша, а этот код вообще компилируется?.. Боюсь, ты привела не окончательный вариант программы..

Главная твоя ошибка в том, что ты используешь идентификатор массива без индексов (Arhangel7 уже это сказал тебе, но не очень внятно). Но ее не должен был пропустить компилятор. Так что не совсем ясно, что именно ты имела в виду.. Скорее всего, тебя подкосил неверный предел в рабочем цикле (надо 1, у тебя i).

Вот тебе твой код, подправленный (что сказал, и еще пара исправлений).
Кстати, для определения четности лучше использовать встроенную функцию odd. И старайся форматировать код - ошибки будет легче искать.
Успехов тебе.

const
  m= 100;
  r= 150;
var
  a:array[1..m] of integer;
  i: byte;
  n,k:integer;
begin
  {randomize;} {раскомментируй после отладки}
  k:=0;
  writeln('введите размер массива (не более ',m,')'); 
  readln(n);
  for i:=1 to n do begin
    a[i]:=random(r*2+1)-r;
    write(a[i]:5);
  end;
  writeln;
  for i:=1 to n do
    if (a[i]>0) and not odd(a[i]) then k:=k+a[i];
  writeln(k)
end.