первые задачи по турбо паскаль

[pavel42]

integer, я блин почти ничего не понимаю ((

[__STDC__]

надо

m:array[1..n] of integer;

[pavel42]

короче ничего не понимаю.....

[Манжосов Денис :)]

program pavel42;
const
  n = 50;
type
   MyArray = array [1..n] of integer;
var
  a: MyArray;
procedure Init(var a: MyArray; n: integer);
var
  i: byte;
begin
  for i:=1 to n do
  begin
    a[i] := Random(100);
    WriteLn(a[i]);
  end;
end;

function SummElem(a: MyArray; n: integer): integer;
var
  i: byte;
  c: integer;
  k: byte;
  x: integer;
begin
SummElem := 0;
k := 0;
i := 2;
    while a[i-1]<0 do
     begin
      if a[i-1] mod 2 <> 0 then
      begin
       x := x + a[i-1] + a[i];
       SummElem := x;
      end;
      Inc(i);
     end;
  c := i-1;
  for i:=c to n do
    if a[i]<0 then Inc(k);
  WriteLn('Количество отрицательных элементов после числа ',c, ' = ',k);
end;

begin
  Init(a, n);
  WriteLn('Ќ*©вЁ б㬬г *Ґзсв*ле н«Ґ¬Ґ*в®ў',
  ' ¤® ЇҐаў®Ј® Ї®«®¦ЁвҐ«м*®Ј® Ё Є®«ЁзҐбвў*',
  ' ®ваЁж*⥫м*ле н«Ґ¬Ґ*в®ў Ї®б«Ґ *ҐЈ®');
  Randomize;
  WriteLn(SummElem(a, n))
end.

Код первой задачи. Если получится, вторую решу. Правда, не уверен работает ли первая. Просто я без отрицательных чисел делал.
ПРАВКА
Код не до конца сделан. Прости, за невнимательность, забыл сделать так, чтобы складывались только нечётные элементы. Сейчас исправлю

[pavel42]

большое спасибо...ща попробую разобраться что тут да как )

[OCTAGRAM]

@Манжосов Денис
Randomize перед Init

[Манжосов Денис :)]

Это не столь важно в данной задаче.