Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 05.04.2009
Сообщений: 16
1

Задача про сортировку массива и его вывод

05.04.2009, 16:13. Просмотров 778. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста решить задачку :

Дана квадратная матрица 4х4. Сделать одномерный массив, состоящий из отрицательных элементов, расположенных на побочной диагонали. Вывести: матрицу, полученный одномерный массив и этот массив с элементами расположенными по возрастанию.

В заранее спасибо за помощь.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2009, 16:13
Ответы с готовыми решениями:

Задача про матрицу и сортировку массива
Помогите пожалуйста решить задачу : Дана квадратная матрица. Получить одномерный массив...

Задача про сортировку слиянием
Помогите, пожалуйста! Изучаю алгоритмы программирования, сейчас на тема сортировки, конкретнее -...

Самая простая задача на свете про сортировку
Супер простая задача на сортировку. Дается N чисел (N ≤ 10^6), которые по абсолютной величине не...

Задача про сортировку с использованием связного списка, нужно найти ошибку
Имеется файл состоящий из данных о студентах(ФИО, номер группы, средний бал). Построить...

2
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
05.04.2009, 17:00 2
Лучший ответ Сообщение было отмечено Alt+F4 как решение

Решение

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
41
42
43
program di;
uses crt;
const n=4;
var m:array[1..n,1..n]of integer;
    d:array[1..n]of integer;
    k,i,j,buf:integer;
 
begin
 randomize;
 clrscr;
 
 for i:=1 to n do
 for j:=1 to n do
 m[i,j]:=random(7)-7;
 
 writeln('Bazovaya matrica:');
 for i:=1 to n do
 begin
  for j:=1 to n do write(m[i,j]:2,' ');
  writeln;
 end;
 
 k:=0;
 for i:=1 to n do if m[i,i]<0 then
 begin
  inc(k);
  d[k]:=m[i,i];
 end;
 
 write('Otricatelnye elementi diagonali: '); for i:=1 to k do write(d[i],' ');
 writeln;
 
 for i:=1 to k do
 for j:=1 to k-1 do if d[j]>d[j+1] then
 begin
  buf:=d[j];
  d[j]:=d[j+1];
  d[j+1]:=buf;
 end;
 
 write('Otsortir. elementi diagonali: '); for i:=1 to k do write(d[i],' ');
 readln;
end.
2
0 / 0 / 0
Регистрация: 05.04.2009
Сообщений: 16
05.04.2009, 17:15  [ТС] 3
Спасибо большое !!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.04.2009, 17:15

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

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

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

Задача на сортировку записей и вывод части из них по условию (Pascal)
Всем привет! Задали сделать задачку, состоящую из 2 частей, 1 часть сделал, а во второй есть...

Задача на сортировку одномерного массива
Прошу помочь в решении этой задачи. Ввести одномерный массив из N вещественных чисел в диапазоне...


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

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

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