Question

Помогите написать программы в ПАСКАЛЬ.
1. Найти суммы всех положительных и абсолютных значений всех отрицательных элементов массива.

2. Найти количество элементов, которые при целочисленном делении на 9 дают остаток 2, и сумму всех остальных элементов.

3. Найти произведение минимального и максимального элементов массива.

Answer 1

const

 N=10;

var

 a:array[1..N]of integer;

 i,count,sum,t,max,min:integer;

begin

randomize;

sum:=0; count:=0; t:=0;

max:=-21; min:=21;

for i:=1 to N do

 begin

   a[i]:=random(41)-20;

   write(a[i]:4);

   sum:=sum+abs(a[i]);

   if a[i] mod 9 = 2 then  

     begin

       inc(count);

       t:=t+a[i];

     end;

   if max<a[i] then max:=a[i];

   if min>a[i] then min:=a[i];

 end;

writeln; writeln('Sum: ',sum);

        writeln('Count(x/9=2): ',count);

        writeln('SumOst: ',sum-t);

        writeln('Min: ',min,'  Max: ',max );

        writeln('Min*Max: ',min*max);

end.