Max
Роман Евменов
for i:=1 to 20 do
if l[i]<0 then c[i]:= l[i] else begin
s:=0;
for j:=1 to 20 do
s:=s+m[i]/i;
c[i]:=s end;
Похожие вопросы
for i:=1 to 20 do
if l[i]<0 then c[i]:= l[i] else begin
s:=0;
for j:=1 to 20 do
s:=s+m[i]/i;
c[i]:=s end;