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

Сформировать одномерный массив из элементов, лежащих над главной диагональю матрицы

31.05.2015, 18:12. Просмотров 980. Ответов 2
Метки нет (Все метки)

Сформировать одномерный массив из элементов, лежащих над главной диагональю матрицы А (4,4)

Был бы очень благодарен за программу,заранее спасибо
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2015, 18:12
Ответы с готовыми решениями:

Найти наименьшие, отрицательные, элементы каждой строки матрицы EW{m, m} находящиеся над главной диагональю и переписать их в одномерный массив W.
Мальчики помогите бедной девушке надо решить на завтро 2 задачи ,я уже пол...

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

Найти сумму элементов, лежащих под главной диагональю квадратной матрицы
Дана матрица 5х5. Найти сумму элементов, лежащих под главной диагональю...

Сумма элементов матрицы над главной диагональю
Вычислить сумму элементов массива над главной диагональю, Определить индексы...

Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над главной диагональю
Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над...

2
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4139 / 2734 / 2171
Регистрация: 22.11.2013
Сообщений: 7,640
31.05.2015, 19:15 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  na=4; nb=6;
var
  a: array [1..na,1..na] of Integer;
  b: array [1..nb] of Integer;
  i, j, k: Integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to na do begin
    for j:=1 to na do begin
      a[i,j]:=Random(100); Write(a[i,j]:4);
    end; WriteLn;
  end;
  WriteLn('B='); k:=0;
  for i:=1 to na do
    for j:=1+i to na do begin
      Inc(k); b[k]:=a[i,j]; Write(b[k]:4);
    end;
  WriteLn;
end.
Добавлено через 6 минут
Другой вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  na=4; nb=6;
var
  a: array [1..na,1..na] of Integer;
  b: array [1..nb] of Integer;
  i, j, k: Integer;
begin
  Randomize;
  WriteLn('A='); k:=0;
  for i:=1 to na do begin
    for j:=1 to na do begin
      a[i,j]:=Random(100); Write(a[i,j]:4);
      if j>i then begin
        Inc(k); b[k]:=a[i,j];
      end;
    end; WriteLn;
  end;
  WriteLn('B=');
  for k:=1 to k do Write(b[k]:4); WriteLn;
end.
0
somov
0 / 0 / 0
Регистрация: 23.03.2015
Сообщений: 14
01.06.2015, 17:26  [ТС] 3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2015, 17:26

Вычислить сумму элементов матрицы, расположенных над главной диагональю
Вычислить сумму элементов матрицы, расположенных над главной диагональю. Размер...

Вычислить сумму элементов матрицы, расположенных над главной диагональю
Помогите с решением В заданной квадратной матрице A(K,K) (K<=10) вычислить...

Вычислить сумму элементов матрицы, расположенных над главной диагональю
Вычислить сумму элементов матрицы, расположенных над главной диагональю. Размер...


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

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

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