0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 4
1

Составить одномерный массив из номеров строк матрицы, где на побочной диагонали совершенное число

18.01.2013, 17:52. Показов 1143. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
дан двумерный массив a[n,n]. составить одномерный массив из номеров строк, где на побочной диагонали совершенное число. оформить как процедуру или функцию. помогите плиз.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.01.2013, 17:52
Ответы с готовыми решениями:

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

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

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

Составить одномерный массив из элементов побочной диагонали исходной матрицы, и упорядочить его по возрастанию
С клавиатуры вводится вещественная матрица NxN (N<=17). Составить одномерный массив из элементов...

1
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,572
Записей в блоге: 1
19.01.2013, 09:42 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
41
42
43
44
Uses Crt;
Var A:array[1..20,1..20] of integer;
    B:array[1..20] of integer;
    i,j,n,m:byte;
Function Sover(n:integer):boolean;
Var s,i:integer;
Begin
    s:=1;
    For i:=2 to n div 2 do
     if n mod i = 0 then s:=s+i;
    Sover:=n=s;
End;  
Begin
    ClrScr;Randomize;
    write('Размерность: ');readln(n);
    For i:=1 to n do
     For j:=1 to n do
     Begin
       write('A[',i,',',j,'] = ');
       readln(A[i,j]);
     End;
    ClrScr;
    writeln('Введенная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:4);
      writeln;
    End;
    For i:=1 to n do
     if Sover(A[i,n-i+1]) then
     Begin
       inc(m);
       B[m]:=i;
     End;
    if m>0 then 
    Begin
      writeln('Полученный массив');
      For i:=1 to m do
       write(B[i]:2);
    End
    else writeln('Нету совершенных чисел на побочной диагонали');
    readln;
End.
Сами тестируйте)Не охото вбивать матрицу)
0
19.01.2013, 09:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2013, 09:42
Помогаю со студенческими работами здесь

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

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

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

Составить одномерный массив из номеров столбцов, где на главной диагонали число Фибоначи
Дан двумерный массив.Составить одномерный массив из номеров столбцов,где на главной диагонали число...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru