Добавил:
Hist
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Паскаль (I семестр) / K01-172 / 04 / m2
.pas program m_2;
const
n=5;
rtop=15;
rbottom=-100;
type
mas=array[1..N] of integer;
procedure fill(var m:mas;l:integer);
var
i:integer;
begin
randomize;
for i:=1 to l do
m[i]:=rtop-random(rtop-rbottom);
end;
procedure output(m:mas;l:integer);
var
i:integer;
begin
for i:=1 to l do
write(m[i],' ');
writeln;
end;
procedure copy(m1:mas;var m2:mas;l1:integer;var l2:integer);
var
i,j:integer;
begin
j:=0;
for i:=1 to l1 do
begin
if m1[i]>=0 then
begin
j:=j+1;
m2[j]:=m1[i];
end;
end;
l2:=j;
end;
var
m1,m2:mas;
lengthof2:integer;
begin
fill(m1,N);{§ Ї®«ҐЁҐ ¬ ббЁў б«гз ©л¬Ё зЁб« ¬Ё}
writeln('ЏҐаўл© ¬ ббЁў');{ўлў®¤ ЇҐаў®Ј® ¬ ббЁў }
output(m1,N);
copy(m1,m2,N,lengthof2);{Є®ЇЁа®ў ЁҐ Ї®«®¦ЁвҐ«мле жЁда Ё§ ЇҐаў®Ј® ¬ ббЁў ў® ўв®а®©}
writeln('‚в®а®© ¬ ббЁў:');{ўлў®¤ ўв®а®Ј® ¬ ббЁў }
output(m2,lengthof2);
readln;
end.
const
n=5;
rtop=15;
rbottom=-100;
type
mas=array[1..N] of integer;
procedure fill(var m:mas;l:integer);
var
i:integer;
begin
randomize;
for i:=1 to l do
m[i]:=rtop-random(rtop-rbottom);
end;
procedure output(m:mas;l:integer);
var
i:integer;
begin
for i:=1 to l do
write(m[i],' ');
writeln;
end;
procedure copy(m1:mas;var m2:mas;l1:integer;var l2:integer);
var
i,j:integer;
begin
j:=0;
for i:=1 to l1 do
begin
if m1[i]>=0 then
begin
j:=j+1;
m2[j]:=m1[i];
end;
end;
l2:=j;
end;
var
m1,m2:mas;
lengthof2:integer;
begin
fill(m1,N);{§ Ї®«ҐЁҐ ¬ ббЁў б«гз ©л¬Ё зЁб« ¬Ё}
writeln('ЏҐаўл© ¬ ббЁў');{ўлў®¤ ЇҐаў®Ј® ¬ ббЁў }
output(m1,N);
copy(m1,m2,N,lengthof2);{Є®ЇЁа®ў ЁҐ Ї®«®¦ЁвҐ«мле жЁда Ё§ ЇҐаў®Ј® ¬ ббЁў ў® ўв®а®©}
writeln('‚в®а®© ¬ ббЁў:');{ўлў®¤ ўв®а®Ј® ¬ ббЁў }
output(m2,lengthof2);
readln;
end.