Var a:array of array of integer; jmin:array of integer; n,m,i,j,k,min:integer; begin Randomize; write('n = '); readln(n); write('m = '); readln(m); writeln('Исходный массив:'); SetLength(a,n); for i:=0 to n-1 do SetLength(a[i],m); SetLength(jmin,m); for i:=0 to n-1 do begin for j:=0 to m-1 do begin a[i,j]:=random(11); write(a[i,j]:4); end; writeln; end; min:=a[0,0]; jmin[0]:=1; for i:=0 to n-1 do for j:=0 to m-1 do if a[i,j]<min then begin min:=a[i,j]; for k:=0 to m-1 do jmin[k]:=0; jmin[j]:=1; end else if a[i,j]=min then jmin[j]:=1; writeln('min = ',min); for k:=0 to m-1 do write(jmin[k],' '); writeln; for k:=m-1 downto 0 do if jmin[k]=1 then begin for i:=0 to n-1 do SetLength(a[i],Length(a[i])+1); for i:=0 to n-1 do for j:=Length(a[i])-1 downto k+2 do a[i,j]:=a[i,j-1]; for i:=0 to n-1 do a[i,k+1]:=0; end; for i:=0 to n-1 do begin for j:=0 to Length(a[i])-1 do write(a[i,j]:4); writeln; end; end.
ещё несколько лет назад, смотря по телевизору очередной фантастический фильм с участием роботов, никто и подумать не мог, что когда-нибудь эти умные машины появятся и в реальности. однако сегодня научная фантастика воплощается в реальность и роботы уже готовы работать на предприятиях вместо человека.
в это можно и не верить, однако есть несколько фактов, свидетельствующих о таком развитии событий. по всему миру активно участвуют в труде 25 миллионов роботов. аналитики предполагают, что к 2017 году их количество увеличится в 3 раза. и в эту цифру ещё не были учтены роботы, работающие в интернете и ит-компаниях, так называемые программные. современные ремонтные предприятия вполне могут организовать широкое обслуживание робототехники. так же как можно выполнить ремонт генераторов, перейдя по ссылке, так же оперативно в обозримой перспективе будут ремонтироваться и роботы. в целом то, что они становятся всё более востребованы, удивления не вызывает, ведь они могут работать круглые сутки напролёт, не жалуются ни на что, не попивают кофе на рабочем месте и не устраивают частые перекуры.
известная компания expert market решила опросить старших менеджеров насчёт их мнения о рабочих-роботах. полученного результата не мог предвидеть никто. у роботов есть все шансы втиснуться в ряды сотрудников во многих компаниях. получается, что многие люди могут быть заменены рабочим-роботом намного раньше, чем предполагали об этом ранее.
1) из опрошенных менеджеров почти 3 четверти готовы принять на работу робота.
2) менеджеры готовы доверить роботам работу в сфере администрации, принятие телефонных звонков, контроль над электронной перепиской, составление разного рода отчётов.
3) в отличие от людей, у роботов не бывает больничных, делают работу без отклонений от инструкции, не могут просто взять и уволиться.
4) единственное, что плохо в роботах, они не могут свободно творить, и у них нет привязанности к работе на эмоциональном уровне.
5) из всех опрошенных лишь 15% беспокоит такое массовое использование роботов в рабочей сфере.
6) 79% опрошенных предпочитают, чтобы робот не был похож на человека.
7) 68% менеджеров с удовольствием бы отдали роботам большую часть своих рабочих обязанностей.
8) 56% отдали бы всю свою работу, дабы расширить своё личное время.
9) 52% опрошенных могли бы взять робота на должность офис-менеджера, 44% – в сферу ит, 28% – в сферу финансирования. большинство опрошенных согласились, что робот не может выполнять творческую работу, поэтому в pr и сферу дизайна, а также на должность генерального директора их не возьмут.
10) 47% опрошенных сказали, что не будут испытывать каких-либо жалостливых чувств к тем, кого заменят роботом.
a:array of array of integer;
jmin:array of integer;
n,m,i,j,k,min:integer;
begin
Randomize;
write('n = ');
readln(n);
write('m = ');
readln(m);
writeln('Исходный массив:');
SetLength(a,n);
for i:=0 to n-1 do SetLength(a[i],m);
SetLength(jmin,m);
for i:=0 to n-1 do
begin
for j:=0 to m-1 do
begin
a[i,j]:=random(11);
write(a[i,j]:4);
end;
writeln;
end;
min:=a[0,0]; jmin[0]:=1;
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]<min then
begin
min:=a[i,j];
for k:=0 to m-1 do jmin[k]:=0;
jmin[j]:=1;
end
else if a[i,j]=min then jmin[j]:=1;
writeln('min = ',min);
for k:=0 to m-1 do write(jmin[k],' ');
writeln;
for k:=m-1 downto 0 do
if jmin[k]=1 then
begin
for i:=0 to n-1 do SetLength(a[i],Length(a[i])+1);
for i:=0 to n-1 do
for j:=Length(a[i])-1 downto k+2 do a[i,j]:=a[i,j-1];
for i:=0 to n-1 do a[i,k+1]:=0;
end;
for i:=0 to n-1 do
begin
for j:=0 to Length(a[i])-1 do write(a[i,j]:4);
writeln;
end;
end.
Пример:
n = 4
m = 5
Исходный массив:
7 3 7 6 0
5 0 8 0 9
2 1 9 6 10
2 0 3 6 0
min = 0
0 1 0 1 1
7 3 0 7 6 0 0 0
5 0 0 8 0 0 9 0
2 1 0 9 6 0 10 0
2 0 0 3 6 0 0 0
ещё несколько лет назад, смотря по телевизору очередной фантастический фильм с участием роботов, никто и подумать не мог, что когда-нибудь эти умные машины появятся и в реальности. однако сегодня научная фантастика воплощается в реальность и роботы уже готовы работать на предприятиях вместо человека.
в это можно и не верить, однако есть несколько фактов, свидетельствующих о таком развитии событий. по всему миру активно участвуют в труде 25 миллионов роботов. аналитики предполагают, что к 2017 году их количество увеличится в 3 раза. и в эту цифру ещё не были учтены роботы, работающие в интернете и ит-компаниях, так называемые программные. современные ремонтные предприятия вполне могут организовать широкое обслуживание робототехники. так же как можно выполнить ремонт генераторов, перейдя по ссылке, так же оперативно в обозримой перспективе будут ремонтироваться и роботы. в целом то, что они становятся всё более востребованы, удивления не вызывает, ведь они могут работать круглые сутки напролёт, не жалуются ни на что, не попивают кофе на рабочем месте и не устраивают частые перекуры.
известная компания expert market решила опросить старших менеджеров насчёт их мнения о рабочих-роботах. полученного результата не мог предвидеть никто. у роботов есть все шансы втиснуться в ряды сотрудников во многих компаниях. получается, что многие люди могут быть заменены рабочим-роботом намного раньше, чем предполагали об этом ранее.
1) из опрошенных менеджеров почти 3 четверти готовы принять на работу робота.
2) менеджеры готовы доверить роботам работу в сфере администрации, принятие телефонных звонков, контроль над электронной перепиской, составление разного рода отчётов.
3) в отличие от людей, у роботов не бывает больничных, делают работу без отклонений от инструкции, не могут просто взять и уволиться.
4) единственное, что плохо в роботах, они не могут свободно творить, и у них нет привязанности к работе на эмоциональном уровне.
5) из всех опрошенных лишь 15% беспокоит такое массовое использование роботов в рабочей сфере.
6) 79% опрошенных предпочитают, чтобы робот не был похож на человека.
7) 68% менеджеров с удовольствием бы отдали роботам большую часть своих рабочих обязанностей.
8) 56% отдали бы всю свою работу, дабы расширить своё личное время.
9) 52% опрошенных могли бы взять робота на должность офис-менеджера, 44% – в сферу ит, 28% – в сферу финансирования. большинство опрошенных согласились, что робот не может выполнять творческую работу, поэтому в pr и сферу дизайна, а также на должность генерального директора их не возьмут.
10) 47% опрошенных сказали, что не будут испытывать каких-либо жалостливых чувств к тем, кого заменят роботом.