Задача в Delphi

[snejnbumer]

дан целочисленный массив раздела N.найти количество и произведение его элементов в диапазоне от 5 до 25

[Вадим Мошев]

Приступайте к решению. Если что будет непонятно, спрашивайте.

[newerow1989]

const n=12;
var p:array[1..n] of integer;
    i,c,pr:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-20+Random(60);
      Write(p[i],'  ');
   end;
   Writeln;
   c:=0;
   pr:=1;
   For i:=1 to n do
      If (p[i]>=5) and (p[i]<=25) then
      begin
         c:=c+1;
         pr:=pr*p[i];
      end;
   Writeln('c = ',c);
   Writeln('pr = ',pr);
   Readln;
end.

Сойдет?