Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 30.06.2016
Сообщений: 14
1

Из исходной матрицы сформировать два одномерных массива по заданному правилу

02.09.2016, 14:27. Показов 1183. Ответов 1
Метки нет (Все метки)

Задана матрица А(5, 5). Сформировать два одномерных массива. В один переслать по строкам верхний треугольник матрицы, включая элементы главной диагонали, в другой – нижний треугольник.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.09.2016, 14:27
Ответы с готовыми решениями:

Даны два одномерных массива целых чисел. Сформировать из них два новых по правилу
Помогите пожалуйста с задачей:help: :) Даны два одномерных массива целых чисел (массив А,...

Сформировать из матрицы два одномерных массива...
Заданы матрица А размером N  N. Сформировать два одномерных массива. В один переслать по строкам...

Из матрицы 15х15 сформировать два одномерных массива
при помощи двух случайных чисел составить матрицу размером 15х15. сформировать два одномерных...

Сформировать два одномерных массива. В один записать четные, а в другой нечетные элементы матрицы.
Здравствуйте! хочу написать задачу с массивами, но не получается. Вот собственно сама задача:...

1
Модератор
8414 / 4164 / 2877
Регистрация: 17.08.2012
Сообщений: 13,282
02.09.2016, 16:39 2
Лучший ответ Сообщение было отмечено Botan1q как решение

Решение

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
const n = 5;
var a: array[1..n, 1..n] of integer;
    u: array[1..n*(n+1) div 2] of integer;
    d: array[1..n*(n-1) div 2] of integer;
    i, j, ui, di: integer;
begin
  randomize;
  ui := 0;
  di := 0;
  writeln('Source matrix:');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          a[i, j] := -99 + random(199);
          write(a[i, j]:4);
          if i <= j
            then begin
              inc(ui);
              u[ui] := a[i, j]
            end
            else begin
              inc(di);
              d[di] := a[i, j]
            end
        end;
      writeln
    end;
  writeln('Upper triangle, including the principal diagonal:');
  for i := 1 to ui do write(u[i]:4);
  writeln;
  writeln('Lower triangle, not including the principal diagonal:');
  for i := 1 to di do write(d[i]:4);
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.09.2016, 16:39

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

Из матрицы сформировать два одномерных массива, состоящих из суммы элементов по строкам и столбцам соответственно
С исходной матрицы А(5,5) сформировать два одомерных массива, что состоят из суммы елементов по...

Сформировать два одномерных массива. В один перешлите все четные, а в другой – нечетные элементы матрицы.
Дана матрица А, имеющая N строк и N столбцов. Сформировать два одномерных массива. В один перешлите...

Из данной матрицы сформировать два одномерных массива: первый содержит только положительные, а второй отрицательные числа
Прямоугольную матрицу размером м на н заполнить случайными положительными и отрицательными числами....

На основе элементов исходной матрицы вычислить значение выражения по заданному правилу
1)Дана действительная квадратная матрица порядка n. Получить X1Xn+X2Xn-1+...+XnX1, где...


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

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

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