Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. подсчитайте в этом массиве количество положительных и количество отрицательных значений. (на паскале)

program qq;
const
N=100;
var a: array [1..N] of integer;
i,min,max : integer;
begin
min:=0; max:=0;
cls;
writeln ('Массив [-20;+20]');
for i:=1 to N do begin
A[i]:=random (40)-20;
write (A[i]:4);
if A[i] < 0 then
min:=min+A[i]
else max:=max+A[i];
end;
writeln;writeln;
writeln ('Cумма положительных элементов: ', max);
writeln ('Cумма отрицательных элементов: ', min);
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.

Объяснение:

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -