Паскаль. заполнить массив случайными числами от -20 до 20. вывести на экран. все отрицательные числа заменить на 5

Program chik; var a: array[1..1000]of integer; i,n: integer; begin readln(n); randomize; for i: =1 to n do begin a[i]: =random(41)-20; if(a[i]< 0)then a[i]: =5; end; for i: =1 to n do write(a[i],' '); end.

program raf105;

var a,b,sum,nsum,nkol: integer;

sari: real;

begin

write('введите число: ');

readln(a);

while a< > 0 do

begin

  b: = a mod 10;

  a: = (a-b) div 10;

  sum: = sum+b;

  if (b mod 2)< > 0

    then  

    begin

      nsum: = nsum+b;

      nkol: = nkol+1;

    end;

end;

sari: = nsum/nkol;

writeln('сумма всех цифр в числе: ',sum);

writeln('среднее арифметическое нечётных цифр в числе: ',sari);

end.

язык программирования pascalabc

1- комп, просто подключенный к сети - хост, узел. если на нем запущен серверный софт и у него постоянный ip-шник, он становится сервером   3-  протоколов много, по модели osi выглядит как-то так           7 http, ftp, pop3,  telnet,  ssh           6-            5-         4- tcp, udp         3- ip, ipsec, протоколы маршрутизации (rip,ospf, eigrp)           2-  eee, framerelay,isdn, fddi, ieee802.3,  ieee802.2. и много других           1 - посмотри в инете )) 4     -  у которого < имя_пользователя> @домен 5   .edu 6 - гиперссылка 7- браузер