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

с поддержкою паскалт

Так да, см.ниже:)

не я просто уточнил спасибо выручил

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

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.