1) const k = 15; var a : array [1..k] of integer; s : real; i : integer; begin randomize; s := 0; for i := 1 to k do //Обработка массива чаще всего begin //осуществляется в цикле a[i] := random(21); //Формирование s := s + a[i]; //Подсчет суммы элементовend; s := s / k; //Среднее арифметическое (сумма/кол - во)writeln (s:3:3); end.3) const n = 5; var a : array [1..n] of integer; i,k : integer; begin k := 0; for i := 1 to n do begin readln (a[i]); //Считываем элемент if a[i] < 0 then //Если элемент меньше нуля k := k +1; //счетчик +1 end; writeln (k); end.