Прошу прощения что на листе, надеюсь, всё будет понятно
Program NoName;
Var vid,i,n,k,max:integer;
sr:real;
a:array[1..9999] of integer;
Begin
mx:=0;
max:=0;
k:=0;
vid:=0;
sr:=0;
Read (n);
For i:=1 to n do
Begin
Writeln(a[i] :3);
max:=a[1];
If a[i] > max then
max:=a[i];
If a[i] < 0 then
Begin
vid:=vid + a[i];
k:=k+1;
End;
End;
sr:=vid / k;
For i:=1 to n do
Begin
If a[i] < max then
Write (a[i])
Else
Write (sr);
End;
End.
Не могу быть уверенным за правильность, нет возможности проверить
Ральф Джонсон, Эрих Гамма, Ричард Хелм, Джон Влиссидес.
<span> Редактор Paint имеет возможность загрузки, редактирования и записи в файл полноэкранных изображений. Поскольку редактор поддерживает технологию OLE, то полученные рисунки можно скопировать в буфер, оформить их в виде объекта и встраивать в тексты редактора WordPad и иных Windows-приложений. При этом редактор Paint может быть как сервером, так и клиентом при динамическом обмене данными между различными приложениями.
надеюсь правильно поняла вопрос</span><span />