Question

Сформировать массив Р из N элементов. Из элементОв массива, меньших числа К, сформировать массив М. Вывести оба мас- сивл на экран. Вычислить произведение элементов, расположенных меред максимальным элементом массива М.
Паскаль. ​

Answer 1

program dva_mas_vo2_men__chem_v1;

const n=10;

var

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

i,j ,k,max,mp,nm:integer;

begin

for i:=1 to n do begin

p[i]:=random(101);

write(p[i],' ');

end;

writeln;

read(k);

max:=-1;

j:=1;

i:=1;

while i<=n do

begin

if p[i]<k then

begin

m[j]:=p[i];

if m[j]>max then

begin

max:=p[i];

nm:=j;

end;

j:=j+1;;

end;

i:=i+1;

end;

for i:=1 to j-1 do

write(m[i],' ');

mp:=1;

for i:=1 to nm do

mp:=mp*m[i];

writeln;

write(mp)

end.