Ввести массив целых чисел, который в заранее не известен ввод чисел заканчивается, когда сумма введенных чисел становится больше заданного числа получить произведение элемента производного массива.

Const
n=10000;
var
b:array[1..n] of integer;
a,s,p,i:integer;
begin
readln(a);
i:=1;
p:=1;
s:=0;
while s<=a do
begin
readln(b[i]);
s:=s+b[i];
p:=p*b[i];
i:=i+1;
end;
writeln('Произведение элементов = ',p);
end.

Var
A,S,P,M:real;
Begin
WriteLn('Введи число');
ReadLn(M);
S:=0;
P:=1;
WriteLn('Введи массив чисел');
Repeat
ReadLn(A);
S:=S+A;
P:=P*A;
Until S>M;
WriteLn('Произведение элементов равно ',P);
WriteLn('Сумма элементов равна ',S);
End.

var  

  arr:array[1..1000] of integer;

  i,N:integer;

  max:integer;

begin

   max:=1;

   

   write('Укажите кол-во эл-ов - ');

   

   read(N);

   

   for i:=1 to N do//Присваивание и вывод массива

   begin

       arr[i]:=1+random(100);

       

       write(arr[i],'  ');

       

       if arr[i]>max then max:=arr[i];

   end;

   

   writeln;

   

   writeln('Максимальный эл-т - ',max);

   

   for i:=1 to N do//Увеличение чет. эл-ов

     begin

     if arr[i] mod 2=0 then arr[i]:=arr[i]+max;

     

     write(arr[i],'  ');

     end;

 

end.

Объяснение:

Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда, которое сопровождается доведением до других лиц ложных сведений о себе как о действительном авторе.

А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях.

Однако в литературе есть такое явление: "Пойман - не вор". Или "Этот плагиат - кого надо плагиат".