СРОЧНА УЖЕ НАДО ЗАВТРО СДАВАТЬ ТЕТРАТЬ    написать прогу которая находит произведение элемента массива

const N=10;var a: array [0..N] of integer;    i, m: integer;begin     for i := 0 to N do         a[i] := random(1000) - 500; { Надо же что-то в массив закинуть =) }     for i := 0 to N do         m := m + a[i];     writeln(m);end.

Varmas:array[10] of integer;i,pr:integer;beginpr:=1;for i:=1 to 10 do pr=pr*mas[i];writeln('Произведение = ',pr);end.-----------------------------------------------с Объявлением массива точно не помню,посмотри сам как он объявляется,я написал примерно,вроде размерность не много по другому указывается