Проверьте результаты вычислений.

for i in range(size):

S += Array[i]

for i in range(size):

P1 *= Array[i]​

Отве

S+=Array[i]

Обьяснение:

1. program yolo; uses crt; var x, count, amount, n: integer; begin  clrscr;   amount: =0; count: =0;   writeln('введите кол-во чисел необходимых ввести.');   readln(n);   while amount< n do    begin        inc(amount);         writeln('введите число.');       readln(x);         if (x< =100) and (x mod 5=0) then     inc(count);   end; clrscr; if count> 0 then writeln('количество чисел, кратных 5 и не больших 100: ', count)   else writeln('среди введёных чисел не было кратных 5 и не больших 100.');   readln; end.2.program yolo; uses crt; const n=10; var mass: array [1..n] of integer;       i, summposit, amountnegat: byte;   begin  clrscr;   summposit: =0;   amountnegat: =0;   writeln('массив чисел из диапозона [-50; 50]: ');   for i: =1 to n do  begin    mass[i]: =random(101)-50;     write(mass[i], ' ');     if mass[i]> 0 then inc(summposit, mass[i])    else if mass[i]< 0 then inc(amountnegat);   end;   writeln;   if summposit> 0 then  writeln('сумма положительных элементов массива: ', summposit)  else writeln('в массиве нету положительных элементов.');   if amountnegat> 0 then  writeln('количество отрицательных элементов массива: ', amountnegat)    else writeln('в массиве нету отрицательных элементов.');   readln; end.