в линейном массиве из 25 элементов, заполненным случайным обрзаом значениями в диапозоне от -25 до 25. Посчитать количество отрицательных элементов, их среднее значение. Заменить отрицательные элементы средним значением отрицательных элементоов, Вывести новый массив на экран
ну там же именно программы не видно
var
a: array [1..25] of real;
m: real;
c, cn: integer;
begin
randomize;
writeln('array:');
for c := 1 to 25 do begin
a[c] := random() * 50 - 25;
write(a[c]:8:2);
end;
writeln;
for c := 1 to 25 do
if a[c] < 0 then begin
m := m + a[c];
inc(cn);
end;
m := m / cn;
writeln('negative count: ', cn);
writeln('average: ', m:0:2);
for c := 1 to 25 do if a[c] < 0 then a[c] := m;
writeln('result:');
for c := 1 to 25 do write(a[c]:8:2);
end.
… И даже программу «полную» написал:
… Но, ведь, я же её написал. (Доказательство на картинке 
Каков вопрос — таков ответ!
Ну и что у тебя не получается? Покажи свой код и ткни в место, где проблема.
Удачи!
⇢