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: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 p[i]>max then

max:=p[i];

j:=j+1;;

end;

i:=i+1;

end;

for i:=1 to j-1

do

write(m[i],' ');

writeln;

write(max)

end.