Напишите программу нахождения суммы и произведения 20 случайных чисел

var a:array[1..100] of integer;

b,c,d:integer;

begin

c:=0;

d:=0;

for b:=1 to 100 do

begin

a[b]:=random(41)-30;

writeln('a[',b,']= ',a[b]);

if a[b]>0 then c:=c+1;

if a[b]<0 then d:=d+1;

end;

writeln('Количество положительных значений равняется ',c);

writeln('Количество отрицательных значений равняется ',d);

end.

5)

var  

int sum=0;

int kolmin=0;

arr=[0,15,12,–9,–8,58,45,36,–85,58,36,–45,2,3,25,–9];

for(i=0;i<16;i++){  

if(arr[i]>0){ sum+=arr[i];}

if(arr[i]<0){kolmin++;}

}

writeln('сумма + элементов = ',sum);

writeln('количество отрицательных элементов = ',kolmin);

end.

Объяснение:

var

 n, max, count, contrl, max2: integer;

begin

 contrl := 0;

 max := 0;

 Writeln('Введите числа: ');

 Readln(n);

 while n <> 0 do

 begin

   Inc(count);

   if n>max then begin max2:=max; max:=n end

   else if n > max2 then max2 := n;

   Read(n);

 end;

 max2*=max;

 Writeln('Введите контрольное значение: ');

 Read(contrl);

 Writeln('Получено: ', count, ' чисел');

 Writeln('Получено контрольное значение: ', contrl);

 Writeln('Вычисленное контрольное значение:: ', max2);

 if contrl = max then Writeln('Контроль пройден')

 else Writeln('Контроль не пройден');

end.