Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 10.12.2019
Сообщений: 1
1

Дан двумерный массив A N*N). Сформировать двумерный упорядоченныймассив (А 11<=A 12<= .<=A 23<=.<=A nn)

10.12.2019, 10:50. Просмотров 214. Ответов 1
Метки нет (Все метки)

Дан двумерный массив A(N*N). Сформировать двумерный упорядоченный массив (А11<=A12<= ...<=A23<=...<=Ann).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2019, 10:50
Ответы с готовыми решениями:

Дан двумерный массив N*M. Нужно сформировать из него одномерный
Дан двумерный массив N*M. Нужно сформировать из него одномерный из элементов, которые делятся на 5...

Дан двумерный массив целых чисел размерностью 5 х 6. Сформировать одномерный массив
Дан двумерный массив целых чисел размерностью 5 х 6. Сформировать одномерный массив, каждый элемент...

Дан двумерный массив A(N*N). Сформировать одномерный массив из утроенных четных чисел
Задание: Дан двумерный массив A(N*N). Сформировать одномерный массив из утроенных четных чисел.

Дан двумерный массив. Сформировать одномерный массив только из четных элементов двумерного массива
Последний раз прошу, пожалуйста

1
Модератор
62274 / 46551 / 32089
Регистрация: 18.05.2008
Сообщений: 112,533
10.12.2019, 15:31 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
const nmax=10;
procedure Swap(var a,b:integer);
var tmp:integer;
begin
tmp:=a;
a:=b;
b:=tmp;
end;
var a:array[0..nmax-1,0..nmax-1] of integer;
    n,i,j,k:byte;
    x:integer;
begin
repeat
randomize;
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=11+random(90);
    write(a[i,j]:4);
   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]:4);
  writeln;
 end;
 end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2019, 15:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дан двумерный массив. Сформировать одномерный массив по условию
Дан двумерный массив размерностью 6 х 5, заполненный целыми числами с клавиатуры. Сформировать...

Дан двумерный массив размерностью 4*5. Сформировать одномерный массив
Дан двумерный массив размерностью 4*5, заполненный целыми числами с клавиатуры. Сформировать...

Дан двумерный массив. Из него сформировать одномерный из сумм по строкам
Дан двумерный массив. Из него сформировать одномерный из сумм по строкам Помогите решить....

Дан двумерный массив. Сформировать одномерный массив из элементов заданного массива, расположенных под побочной диагональю.
Дан двумерный массив размером n x n. Сформировать: Одномерный массив из элементов заданного...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.