Блог для маленьких школьников и их родителей

Рубрики блога

Вопросы и ответы Информатика 10 - 11 класс

08

Август

ПАСКАЛЬ. Создать двумерный массив, ввести с клавиатуры значения и отсортировать их в порядке возрастания

Автор: katya010633

Предмет: Информатика

Уровень: 10 - 11 класс

ПАСКАЛЬ. Создать двумерный массив, ввести с клавиатуры значения и отсортировать их в порядке возрастания

Ответов к вопросу: 1

omarova3107

Ответить

08.08.2024 | 21:41

Ответ:
const n=5;

procedure Swap(var a,b:integer);

var tmp:integer;

begin

tmp:=a;

a:=b;

b:=tmp;

end;

var a:array[0.n-1,0.n-1] of integer;

i,j,k:byte;

x:integer;

begin

writeln(‘Исходная матрица:’);

for i:=0 to n-1 do

begin

for j:=0 to n-1 do

begin

read(a[i][j]);

end;

end;

for i:=0 to n-1 do

begin

for j:=0 to n-1 do

begin

write(a[i,j]:3);

end;

writeln;

end;

//сортировка всей матрицы по возрастанию

for i:=0 to n*n-2 do

for j:=i+1 to n*n-1 do

if a[i div n,i mod n]>a[j div n,j mod n]

then Swap(a[i div n,i mod n],a[j div n,j mod n]);

writeln(‘Отсортированная матрица по возрастанию’);

for i:=0 to n-1 do

begin

for j:=0 to n-1 do

write(a[i,j]:3);

writeln;

end;

end.

// РЕШЕНИЕ ЗАДАЧ Telegram: @Vadukk
Объяснение:

Ответить на вопрос:

Вам так же может быть интересно:

Расцвели подснежники — Снегурочкины слёзки

Читать запись полностью

Дети-калькуляторы! Или что такое ментальная арифметика?

Читать запись полностью

Про то, как мы Сашу в летний лагерь провожали

Читать запись полностью