YarGen
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
drag1992
ну я ж сказал, у тебя в процедуры передается начальный масив a,
а записываешь результат все время в новые масивы z и x
и почему-то umnozit(a,max,x); и perlace(a,n1,x); в один и тот же и без вывода,
вот я и спрашивал нужно каждое действие по-отдельности или все вместе?
т.е. один результат или 3?
и в процедурах umnozit и umnozenie у тебя выпадают из результирующиго массива элементы которые не попадают под условие.
т.е. нужно так:
Код:
procedure umnozenie(b:mas;min:integer; var c :mas);
var i :byte;
begin
for i:=1 to n do
if b[i]>0 then c[i]:=b[i]*min else c[i]:=b[i];
end;
procedure umnozit(b:mas;max:integer; var d :mas);
var i:byte;
begin
for i:=1 to n do
if b[i]<0 then d[i]:=b[i]*max else d[i]:=b[i];
end;
|
из условия как я понял в основном теле вызывать:
Код:
vvod(a);
vvyvod(a);
NMINIMAL(a, min);
writeln('min=',min);
maxel(a, max);
writeln('max=',max);
umnozenie(a,min,z);
umnozit(z,max,x);
vvyvod(x);
perlace(x,n1,d);
vvyvod(d);
|
|
