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

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

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

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

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

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

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

1
Фрилансер
 Аватар для CodeR
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,603
Записей в блоге: 1
19.01.2013, 09:42
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.01.2013, 09:42
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Реализация Domain-Driven Design с Java
Javaican 20.05.2025
DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .
Возможности и нововведения C# 14
stackOverflow 20.05.2025
Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .
Собеседование по Node.js - вопросы и ответы
Reangularity 20.05.2025
Каждому разработчику рано или поздно приходится сталкиватся с техническими собеседованиями - этим стрессовым испытанием, где решается судьба карьерного роста и зарплатных ожиданий. В этой статье я. . .
Cython и C (СИ) расширения Python для максимальной производительности
py-thonny 20.05.2025
Python невероятно дружелюбен к начинающим и одновременно мощный для профи. Но стоит лишь заикнуться о высокопроизводительных вычислениях — и энтузиазм быстро улетучивается. Да, Питон медлительнее. . .
Безопасное программирование в Java и предотвращение уязвимостей (SQL-инъекции, XSS и др.)
Javaican 19.05.2025
Самые распространёные векторы атак на Java-приложения за последний год выглядят как классический "топ-3 хакерских фаворитов": SQL-инъекции (31%), межсайтовый скриптинг или XSS (28%) и CSRF-атаки. . .
Введение в Q# - язык квантовых вычислений от Microsoft
EggHead 19.05.2025
Microsoft вошла в гонку технологических гигантов с собственным языком программирования Q#, специально созданным для разработки квантовых алгоритмов. Но прежде чем погружаться в синтаксические дебри. . .
Безопасность Kubernetes с Falco и обнаружение вторжений
Mr. Docker 18.05.2025
Переход организаций к микросервисной архитектуре и контейнерным технологиям сопровождается лавинообразным ростом векторов атак — от тривиальных попыток взлома до многоступенчатых кибератак, способных. . .
Аугментация изображений с Python
AI_Generated 18.05.2025
Собрать достаточно большой датасет для обучения нейронной сети — та ещё головная боль. Часами вручную размечать картинки, скармливать их ненасытным алгоритмам и молиться, чтобы модель не сдулась при. . .
Исключения в Java: советы, примеры кода и многое другое
Javaican 18.05.2025
Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .
Как сделать SSO (Single Sign-On) в C# приложении
stackOverflow 18.05.2025
SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru