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

Program gt; var a: array[1..100]of integer; i,l,p: integer; begin randomize; l: =0; p: =0; for i: =1 to 100 do begin a[i]: =random(40)-20; if(a[i]> 0)then l: =l+1; if(a[i]< 0)then  p: =p+1; end; writeln('кол-во пол, чисел=',l); writeln('кол-во отриц, чисел=',p); end.

1)var n: longint; begin readln(n); if n mod 5=0 then writeln('число n является кратным чилслу 5')else writeln('чило n не является кратным числу 5' ); end. 2) var a,b,c: longint: begin readln(a,b,c); if (a+b)div 2=c then writeln('число c является средним арефметическим чисел a и b') else writeln(' число c является средним арефметическим чисел a и b') else writeln('число c не является средним арефметическим чисел a и b '); end. 3) var a: longint; begin write('сколько вам лет? '); readln(a); if a< 14 then write('вам еще рано получать паспорт? ') else write('поздравляю! вы гражданин россии! '); end. 4) var a: extended; begin readln(a); if (a> 36)and(a< 37) then writeln('вы здоровы') else writeln('вы больны'); end.

Var a: array of integer;     n,i,max,ind: integer; begin  readln(n);     setlength(a,n);   for i: =0 to length(a) do    readln(a[i]);     max: =a[0];   ind: =0;   for i: =0 to length(a) do     if abs(a[i])> abs(max) then     begin      max: =a[i];       ind: =i;     end;   n: =a[0];     a[0]: =max;   a[ind]: =n;     for i: =0 to length(a) do    write(a[i]: 3);   readln; end.