Uses crt;
Type MyType = integer;
Var
n,m,i,j,xi,xj: byte;
a: array[1..100,1..100] of MyType;
Procedure Stroka(i,i1: byte);
var
j: byte;
buf: MyType;
begin
For j:=1 to m do
begin
buf:=a[i,j];
a[i,j]:=a[i1,j];
a[i1,j]:=buf
end
end;
Procedure Stolb(j,j1: byte);
var
i: byte;
buf: MyType;
begin
For i:=1 to n do
begin
buf:=a[i,j];
a[i,j]:=a[i,j1];
a[i,j1]:=buf
end
end;
Begin
Clrscr;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
Randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(21)-5;
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln;
xi:=1; xj:=1;
For i:=1 to n do
For j:=1 to m do
If a[i,j] < a[xi,xj] then
begin
xi:=i;
xj:=j
end;
While xi > 1 do
begin
Stroka(xi,xi-1);
Dec(xi)
end;
While xj < n do
begin
Stolb(xj,xj+1);
Inc(xj)
end;
For i:=1 to n do
begin
For j:=1 to m do write(a[i,j]:4);
Writeln
end;
End.
puma802
22.12.2022
Война изображена Твардовским в крови, труде и лишениях. Бесконечная ночь, мороз. Но чуток солдатский сон, даже не сон, а тяжелое забвение, причудливо перемешанное с явью. В сознании тех, кто остался на этом, левом берегу, возникают картины гибели товарищей. Их возможная смерть рисуется в обыденных — но тем более страшных — деталях. Раздумья о солдатах, погибших на переправе, да и не только об этих солдатах,— поэт завершает патетическими строками.
Умершие — бессмертны, и земля, где навек «застыли их следы», становится монументом солдатской славы.
Война, описываемая Александром Трифоновичем Твардовским в поэме, не кажется читателю вселенской катастрофой, невыразимым ужасом. Поскольку главный герой произведения – Вася Теркин – всегда способен выжить в трудных условиях, посмеяться над собой, поддержать товарища, и это для читателя особенно важно – значит, будет другая жизнь, люди начнут от души смеяться, громко петь песни, шутить – придет мирное время. Поэма «Василий Теркин» полна оптимизма, веры в лучшее будущее.
melnik-738
22.12.2022
Было интересно прочесть о жизни этого писателя. Он не писал для детей и вначале казалось, что «Маленький принц» будет рассказом о жизни и приключениях какого-то принца из Марокко. Однако сказка получилась иной. Читать было очень интересно и сюжет был очень не обычным. Запомнились разговоры Принца с летчиком, а так же с Розой и Лисом.
При прочтении было немного грустно, жаль Маленького Принца, так как он был очень одинок. Было смешно читать про то, как принц встречал разных жителей на разных планетах. Здесь автор иронизирует над людскими пороками - стремление к власти, честолюбие, пьянство, любовь к богатству, глупость
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дана целочисленная матрица размером n×m. Переставляя её строки и столбцы, добиться того, чтобы наименьший элемент (или один из них) оказался
Type MyType = integer;
Var
n,m,i,j,xi,xj: byte;
a: array[1..100,1..100] of MyType;
Procedure Stroka(i,i1: byte);
var
j: byte;
buf: MyType;
begin
For j:=1 to m do
begin
buf:=a[i,j];
a[i,j]:=a[i1,j];
a[i1,j]:=buf
end
end;
Procedure Stolb(j,j1: byte);
var
i: byte;
buf: MyType;
begin
For i:=1 to n do
begin
buf:=a[i,j];
a[i,j]:=a[i,j1];
a[i,j1]:=buf
end
end;
Begin
Clrscr;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
Randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(21)-5;
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln;
xi:=1; xj:=1;
For i:=1 to n do
For j:=1 to m do
If a[i,j] < a[xi,xj] then
begin
xi:=i;
xj:=j
end;
While xi > 1 do
begin
Stroka(xi,xi-1);
Dec(xi)
end;
While xj < n do
begin
Stolb(xj,xj+1);
Inc(xj)
end;
For i:=1 to n do
begin
For j:=1 to m do write(a[i,j]:4);
Writeln
end;
End.