Tin học Viết chương trình mảng

[minhloveftu]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho mảng 1 chiều A tối đa 100 phần tử kiểu nguyên, in ra màn hình là các số hoàn hảo
Ai giỏi tin giúp mình với ạ

 

[matheverytime]

#include <iostream>
using namespace std;
#define M 100
void main()
{
    int A[100];
    int n;
    cin >> n;
    for (int i = 0; i < n; i++)
    {
        cout << "Nhap phan tu A[" << i << "]: ";
        cin >> A[i];
    }
    int C[100];
    int y = 0;
    for (int i = 0; i < n; i++)
    {
        int B[100];
        int x = 0;
        int sum = 0;
        for (int j = 1; j < A[i]; j++)
        {
            if (A[i] % j == 0)
            {
                B[x] = j;
                x++;
            }
        }
        for (int k = 0; k < x; k++)
        {
            sum += B[k];
        }
        if (sum == A[i])
        {
            C[y] = A[i];
            y++;
        }
    }
    for (int i = 0; i < y; i++)
    {
        cout << C[i] << "\t";
    }
}

Anh lười tách hàm quá hic

 

[minhloveftu]

#include <iostream>
using namespace std;
#define M 100
void main()
{
    int A[100];
    int n;
    cin >> n;
    for (int i = 0; i < n; i++)
    {
        cout << "Nhap phan tu A[" << i << "]: ";
        cin >> A[i];
    }
    int C[100];
    int y = 0;
    for (int i = 0; i < n; i++)
    {
        int B[100];
        int x = 0;
        int sum = 0;
        for (int j = 1; j < A[i]; j++)
        {
            if (A[i] % j == 0)
            {
                B[x] = j;
                x++;
            }
        }
        for (int k = 0; k < x; k++)
        {
            sum += B[k];
        }
        if (sum == A[i])
        {
            C[y] = A[i];
            y++;
        }
    }
    for (int i = 0; i < y; i++)
    {
        cout << C[i] << "\t";
    }
}

Anh lười tách hàm quá hic

Anh viết theo Pascal được không ạ?