Помогите с массивом пожалуйста, просто времени нет

[mannn]

Задан одномерный массив M(N) (N<=60). Все его отрицательные элементы заменить суммой положительных элементов. Нулевые элементы пропускать. Полученный массив распечатать.


Вот тут сообразил, но чет не выводит

program ggg;
const
nmax=60;
var
m:array[1..nmax] of real;
i,n,k:byte;
s,p:real;
begin
writeln('vvedite razmer');
readln(n);
for i:=1 to n do
begin
write('m[',i,']=');
readln(m[i]);
end;
s:=0;k:=0;
for i:=1 to n do
begin
if m[i]<0 then
s:=s+m[i];
k:=k+1;
p:=s/k;
end;
for i:=1 to n do
if m[i]>0 then m[i]:=p;
for i:=1 to n do
writeln('m[',i,']=',m:7);
readln;
end.

[_Alerter_]

program ggg;
const
nmax=60;
var
m:array[1..nmax] of real;
i,n:byte;
s:real;
begin
writeln('vvedite razmer');
readln(n);
for i:=1 to n do
begin
write('m[',i,']=');
readln(m[i]);
end;
s:=0;
for i:=1 to n do
if m[i] > 0 then s:=s+m[i];
for i:=1 to n do
if m[i] < 0 then m[i]:=s;
for i:=1 to n do
writeln('m[',i,']=',m:7);
readln;
end.

[temaps]

program ggg;
const
nmax=60;
var
m:array[1..nmax] of real;
i,n:byte;
s:real;
begin
writeln('vvedite razmer');
readln(n);
s:=0;
for i:=1 to n do
begin
write('m[',i,']=');
readln(m[i]);
if m[i] > 0 then s:=s+m[i]; //тут лучше
end;
for i:=1 to n do
begin
if m[i] < 0 then m[i]:=s;
writeln('m[',i,']=',m:7);
end; //тут в один загнать можно
readln;
end.

Перенёс пару строчек :-)

[mannn]

Не правильно, он отрицательные элементы суммой положительных не заменяет

[Stilet]

Задан одномерный массив M(N) (N<=60). Все его отрицательные элементы заменить суммой положительных элементов. Нулевые элементы пропускать. Полученный массив распечатать.

program ggg;
const
nmax=60;
var
m:array[1..nmax] of real;i:integer;s:real;
begin 
s:=0;

writeln('vvedite razmer'); readln(n);
for i:=1 to n do begin
 write('m[',i,']=');
 readln(m[i]);
 if m[i]>0 then s:=s+m[i];
end;

for i:=1 to n do write(m[i]:5:2); writeln;
for i:=1 to n do if m[i]<0 then m[i]:=s;
for i:=1 to n do write(m[i]:5:2); writeln;

readln;
end.

[Aleksandr H.]

Сообщение от Stilet

program ggg;
const
nmax=60;
var
m:array[1..nmax] of real;i:integer;s:real;
begin 
s:=0;

writeln('vvedite razmer'); readln(n);
for i:=1 to n do begin
 write('m[',i,']=');
 readln(m[i]);
 if m[i]>0 then s:=s+m[i];
end;

for i:=1 to n do write(m[i]:5:2); writeln;
for i:=1 to n do if m[i]<0 then m[i]:=s;
for i:=1 to n do write(m[i]:5:2); writeln;

readln;
end.

сократим чуток итераций?

for i:=1 to n do begin write(m[i]:5:2); if m[i]<0 then m[i]:=s; end;writeln;
for i:=1 to n do write(m[i]:5:2); writeln;

[Stilet]

Согласен. Хотя я как-то для красоты делал больше.

[Aleksandr H.]

Согласен. Так код смотрится читабельнее, что-ли.