
Вопрос задан 29.10.2023 в 11:23.
Предмет Информатика.
Спрашивает Чмиль Оксана.
Заполнить двумерный массив 3x4 случайными числами в интервале [-50..50] и отсортировать построчно
по возрастанию.

Ответы на вопрос

Отвечает Ломовцева Екатерина.
Const
m = 3;
n = 4;
var
a: array[1..m, 1..n] of integer;
i, j, k, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
{ Пузырьковая сортировка по возрастанию в строках }
for i:=1 to m do
for k := 1 to n-1 do
for j := 1 to n-1 do
if a[i,j] > a[i,j+1] then
begin t := a[i,j]; a[i,j] := a[i,j+1]; a[i,j+1] := t end;
Writeln('Сортировка по строкам');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i, j]:4);
Writeln
end
end.
Тестовое решение:
Исходный массив
41 5 -19 -6
46 -27 37 5
33 18 -39 -4
Сортировка по строкам
-19 -6 5 41
-27 5 37 46
-39 -4 18 33
m = 3;
n = 4;
var
a: array[1..m, 1..n] of integer;
i, j, k, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
{ Пузырьковая сортировка по возрастанию в строках }
for i:=1 to m do
for k := 1 to n-1 do
for j := 1 to n-1 do
if a[i,j] > a[i,j+1] then
begin t := a[i,j]; a[i,j] := a[i,j+1]; a[i,j+1] := t end;
Writeln('Сортировка по строкам');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i, j]:4);
Writeln
end
end.
Тестовое решение:
Исходный массив
41 5 -19 -6
46 -27 37 5
33 18 -39 -4
Сортировка по строкам
-19 -6 5 41
-27 5 37 46
-39 -4 18 33



Отвечает Кокош Кристина.
Program t1;
var
i, j: integer;
mas: array [1..10] of integer;
begin
randomize;
writeln ('сгенерированный масив: ');
for i := 1 to 3 do
writeln;
for j := 1 to 4 do
begin
mas[i,j] := random (100) - 50;
write (mas[i,j]);
end;
end;
begin
for i:=1 to 3 do
for i:=1 to 3 do
for k:=1 to 3-i do
if M[k] > M[k+1] then swap(mas[k],mas[k+1])
end
end;
end;
writeln ('отсортированный по возрастанию массив (построчно): ');
for i := 1 to 3 do
writeln;
for j := 1 to 4 do write (mas[i,j]);
end;
end;
end.
var
i, j: integer;
mas: array [1..10] of integer;
begin
randomize;
writeln ('сгенерированный масив: ');
for i := 1 to 3 do
writeln;
for j := 1 to 4 do
begin
mas[i,j] := random (100) - 50;
write (mas[i,j]);
end;
end;
begin
for i:=1 to 3 do
for i:=1 to 3 do
for k:=1 to 3-i do
if M[k] > M[k+1] then swap(mas[k],mas[k+1])
end
end;
end;
writeln ('отсортированный по возрастанию массив (построчно): ');
for i := 1 to 3 do
writeln;
for j := 1 to 4 do write (mas[i,j]);
end;
end;
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Хорошо! Чтобы заполнить двумерный массив 3x4 случайными числами в интервале [-50..50], вам нужно сгенерировать случайное число для каждого элемента массива. Затем, чтобы отсортировать его построчно по возрастанию, вам нужно будет отсортировать каждую строку массива отдельно.
Вот пример кода на языке Python, который реализует это:
```python
import random
# Создаем двумерный массив 3x4
array = [[0]*4 for _ in range(3)]
# Заполняем массив случайными числами
for i in range(3):
for j in range(4):
array[i][j] = random.randint(-50, 50)
# Отсортировываем каждую строку массива по возрастанию
for i in range(3):
array[i].sort()
# Выводим отсортированный массив
for i in range(3):
for j in range(4):
print(array[i][j], end=' ')
print()
```
Этот код сначала создает двумерный массив размером 3x4 и заполняет его случайными числами в интервале [-50..50]. Затем каждая строка массива сортируется по возрастанию с помощью метода `sort()`. Наконец, отсортированный массив выводится на экран построчно.
Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.
0
0


Похожие вопросы

Информатика 26

Информатика 82
Топ вопросов за вчера в категории Информатика

Информатика 575

Информатика 33

Информатика 39

Информатика 24

Информатика 34

Информатика 136

Информатика 18
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili