Question

Помогите пожалуйста:
1)В одномерном массиве А(15) найти процент отрицательных элементов.
2)Вывести на экран элементы одномерного массива А(20), оканчивающиеся на цифру 3.
3)Вычислить произведение двузначных элементов массива А(13).
4)Определить, является ли массив А(30) упорядоченным по возрастанию.

Answer 1

1)
#include <iostream>

int main()
{
    int A[15] = {1,2,3,-1,-2,-3,1,2,-1,-2,1,2,3,4,5};
    int k = 0;
    for (int i=0; i<15; i++)
        k+=(A[i]<0) ? 1:0;
    std::cout <<(k/15*100) <<'n';
    return 0;
}

2)
#include <iostream>

int main()
{
    int A[20] = {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,33,20};
    for (int i=0; i<20; i++)
       if (A[i]%10==3)
         std::cout <<A[i] <<std::endl;
    return 0;
}

3)
#include <iostream>

int main()
{
    int A[13] = {1,2,3,4,5,6,7,8,9,10,11,12,13};
    usnigned int p = 1;
    for (int i=0; i<13; i++)
        p*=(A[i]>9 && A[i]<100) ? A[i]:1;
    std::cout <<p <<'n';
    return 0;
}

4)
#include <iostream>

int main()
{
    int A[30] = {1,2,3,4,5,6,7,8,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,
                      23 24 25 26,27,28,29,28};
    bool flag = true;
    for (int i=0; i<29; i++)
      if (a[i]>a[i+1])
      {
         flag = false;
         break;
      }
    std::cout <<std::boolalpha <<flag <<std::endl;
    return 0;
}

Answer 2

а можно в ABC Pascal