В массиве из N частей, данных случайным образом из промежутка [0;50],

Вы отыскали где-то сборник задач десятилетней давности? Проект Pascal ABС закрыт в 2007 году и теснее 11 лет как разработчики поддерживают PascalABC.NET.

Program mathlover12;

const

 n = 50; Количество частей массива

 m = 50; Максимально возможное значение элемента

var  

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

 i,pp:integer;

 s:string;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

наполняем массив случайными числами

 writeln; randomize;

 for i:=1 to n do a[i]:=random(m+1);

Отыскиваем произведение частей, наименьших 25

 pp:=1;

 for i:=1 to n do

   if a[i]lt;25 then pp:=pp*a[i];

Вывод

 writeln;

 for i:=1 to n do

   write(a[i],' ');

 writeln; writeln;

 writeln('Творение частей, меньших 25, равнo ',pp);

end.

PascalABC.NET

Program mathlover12;

const

 n = 50; Количество частей массива

 m = 50; Очень вероятное значение элемента

var  

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

begin

 var s:='**** -=Alphaeus=- ****';

 for var i:=1 to 22 do begin write(s[i]); sleep(60) end;

заполняем массив случайными числами

 writeln; randomize;

 for var i:=1 to n do a[i]:=random(m+1);

Разыскиваем произведение элементов, меньших 25

 var pp:=1;

 for var i:=1 to n do

   if a[i]lt;25 then pp:=pp*a[i];

Вывод

 writeln; a.println; writeln;

 writeln('Творение частей, наименьших 25, равнo ',pp);

end.