Составьте программу вычисления среднего арифметического отрицательных элементов массива. заранее !

uses crt; cоnst n = 15; var b: array [1..n] of integer; s,p,k: integer; beginclrscr; for k: =1 to n do readln(b[k]); s: =0; p: =0; for k: =1 to n do if b[k] < 0 then begins: =s+b[k]; p: =p+1; end; writeln('среднее арифм. равно: ', (s/p): 9: 4); readkey; end.

Uses GraphABC;

const MaxShar=50;

type shar = record

           x,y:integer;

           dx,dy:integer;

           end;

var i:byte;

   x,y,r:integer;

   shars: array[1..MaxShar] of shar;

begin

randomize;

setwindowsize(500,500);

centerwindow;

r:=10;

setpenwidth(3);

for i:=1 to MaxShar do

with shars[i] do

begin

 x:=7+r+random(500-2*r-14);

 y:=7+r+random(500-2*r-14);

 dx:=random(8) + 1;

 dy:=random(8) + 1;

end;

lockdrawing;

repeat

clearwindow;

for i:=1 to MaxShar do

with shars[i] do

begin

 x:=x+dx;

 if (x+r+dx>=493) or (x-r+dx<=7) then dx:=-dx;

 y:=y+dy;

 if (y+r+dy>=493) or (y-r+dy<=7) then dy:=-dy;

 setpencolor(clBlue);

 setbrushcolor(clBlue);

 circle(x,y,r);

end;

setpencolor(clBlack);

setpenwidth(3);

moveto(5,5);

lineto(495,5);

lineto(495,495);

lineto(5,495);

lineto(5,5);

sleep(1);

redraw;

until false;

end.

Примечание:

В конце программы есть команда sleep(), чем больше в ней значение, тем меньше скорость шариков. Также её можно просто убрать, тогда скорость будет максимальной.

Заходим в pascalabc.net и читаем в справке: function find< t> (self: array of t; p: t-> boolean): t; extensionmethod;                 выполняет поиск первого элемента в массиве, удовлетворяющего предикату. если не найден, возвращается нулевое значение соответствующего типа теперь переведем это на общепонятный язык. во-первых, не существует процедуры find в языке pascalabc.net. во-вторых, имеется функция find, реализующая так называемое расширение, т.е. которая в тексте программы следует непосредственно за точкой. если имеется одномерный массив а, содержащий элементы некоторого типа, то конструкция a.find(лямбда-выражение типа boolean) позволяет найти в массиве а первый в порядке следования элемент, подстановка значения которого в лямбда-выражение сделает это выражение истинным. не знаете, что такое лямбда-выражение? ну что же, я не могу в ответе рассказывать теорию "лямбд", да и вопрос был не об этом.