Дандвумерный массив размерностью 5 х 6, заполненный случайным образом.воткнуть после
Дан
двумерный массив размерностью 5 х 6, заполненный случайным образом.
воткнуть после столбцов с наивысшими элементами столбец из единиц.
и
поменять местами предпоследний и последний столбцы.
Люба Шулежко
столбец в котором максимальный элемент есть, к примеру спектр чисел от 5 до 10 , как следует после столбца в котором есть 10 , ставиться столбец из единиц
Арина Мациева
столбец в котором максимальный элемент есть, к примеру спектр чисел от 5 до 10 , следовательно после столбца в котором есть 10 , ставиться столбец из единиц
1 ответ
Oshrina Eva
Type
mas=array[,] of integer;
var
i,j,ik,jk,k,max:integer;
a:mas;
b:array[0..5]of integer;//вспомогательный массив
begin
setlength(a,5,6);
writeln('Массив:');
for i:=0 to 4 do
begin
for j:=0 to 5 do
begin
a[i,j]:=random(-10,10);
write(a[i,j]:4);
end;
writeln;
end;
writeln('Вставка столбцов:');
// в массиве b признак наличия в столбце максимума
for i:=0 to 4 do
for j:=1 to 5 do
if a[i,j]gt;max then
max:=a[i,j];
for i:=0 to 4 do
for j:=0 to 5 do
if a[i,j]=max then b[j]:=1;
for i:=0 to 5 do k:=k+b[i];
k:=5+k;
setlength(a,5,k+1);
jk:=k;
for j:=5 downto 0 do
begin
if b[j]=1 then
begin
for ik:=0 to 4 do a[ik,jk]:=1;
jk:=jk-1;
end;
for ik:=0 to 4 do a[ik,jk]:=a[ik,j];
jk:=jk-1;
end;
for i:=0 to 4 do
begin
for j:=0 to k do
write(a[i,j]:4);
writeln;
end;
writeln('Обмен столбцов:');
for i:=0 to 4 do
begin
b[i]:=a[i,k-1];
a[i,k-1]:=a[i,k];
a[i,k]:=b[i];
end;
for i:=0 to 4 do
begin
for j:=0 to k do
write(a[i,j]:4);
writeln;
end;
end.
mas=array[,] of integer;
var
i,j,ik,jk,k,max:integer;
a:mas;
b:array[0..5]of integer;//вспомогательный массив
begin
setlength(a,5,6);
writeln('Массив:');
for i:=0 to 4 do
begin
for j:=0 to 5 do
begin
a[i,j]:=random(-10,10);
write(a[i,j]:4);
end;
writeln;
end;
writeln('Вставка столбцов:');
// в массиве b признак наличия в столбце максимума
for i:=0 to 4 do
for j:=1 to 5 do
if a[i,j]gt;max then
max:=a[i,j];
for i:=0 to 4 do
for j:=0 to 5 do
if a[i,j]=max then b[j]:=1;
for i:=0 to 5 do k:=k+b[i];
k:=5+k;
setlength(a,5,k+1);
jk:=k;
for j:=5 downto 0 do
begin
if b[j]=1 then
begin
for ik:=0 to 4 do a[ik,jk]:=1;
jk:=jk-1;
end;
for ik:=0 to 4 do a[ik,jk]:=a[ik,j];
jk:=jk-1;
end;
for i:=0 to 4 do
begin
for j:=0 to k do
write(a[i,j]:4);
writeln;
end;
writeln('Обмен столбцов:');
for i:=0 to 4 do
begin
b[i]:=a[i,k-1];
a[i,k-1]:=a[i,k];
a[i,k]:=b[i];
end;
for i:=0 to 4 do
begin
for j:=0 to k do
write(a[i,j]:4);
writeln;
end;
end.
Агата Жемиркина
а по процедурам не сможете сделать??? раздельно процедура размена, и раздельно вставки?
Кира Волчегорская
и меня интересует, что эта за команда setlength(a,5,k+1);?
Iljusha
Уже нет, конфигурации в ответе закрыты.
Арина
Этой командой переопределяем размеры массива
Похвальнева
Алёна
а заменить её чем нибудь можно?
Тамара Самоварникова
Нет. Можно только сначала сделать массив с припасом - большего, чем необходимо, размером. Нам же надобно вставлять столбцы - это означает, размер массива станет больше.
Данил Здобин
ааа, вот оно что, спасибо)
Kamilla Bazyrina
а по процедурам не сможете сделать??? раздельно процедура размена, и раздельно вставки?
Arsenij Atran
и меня интересует, что эта за команда setlength(a,5,k+1);?
Александр Грушин
Теснее нет, конфигурации в ответе закрыты.
Blozhko Stepan
Этой командой переопределяем размеры массива
Вероника Чеготкина
а поменять её чем нибудь можно?
Илья Уюдин
Нет. Можно только сначала создать массив с запасом - большего, чем нужно, размером. Нам же надобно вставлять столбцы - это означает, размер массива станет больше.
Арсений Акст
ааа, вот оно что, спасибо)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов