Вычислить площадь прямоугольного треугольника. Значения катетов задать с датчика случайных чисел. Предусмотреть, что величина катета не может равняться 0. Результат вывести в следующую строку. Выполнить в Pascal.abc

#include <iostream>
using namespace std;

int main()
{
    double S = 0;
    int N = 0, K = 0, A;
    cout <<"K = ",cin >> K;
    for(int i = 0; i < K; i++)
    {
        cout <<"Nabor "<<i<<": ";
        S = 0;
        N = 0;
        cin >> A;
        while(A != 0)
        {
            S+=A;
            N++;
            cin >> A;
        }
        if (N!=0) cout <<"Sr = "<<S/N<<"\n";
        else cout <<"Na noll delit' nel'zja!\n";
    }
    return 0;
}

#include <iostream>
#include <iomanip>
#include <ctime>

using namespace std;

int main()
{
    setlocale(LC_ALL, "RUSSIAN");
    int arr[] = { 2, 5, 0, 4, 7, 0, 3, 0, 0, 1 };
    int max = arr[0];
    int maxind = 0;
    for (int i = 0; i < 10; i++)
    {
        cout << arr[i] << " ";
        if (max < arr[i])
        {
            max = arr[i];
            maxind = i;
        }
    }
    cout << endl << "Максимальный элемент: " << max << endl;
    cout << "Номера элементов равных нулю, стоящих после максимального: ";
    for (int i = maxind; i < 10; i++)
        if (arr[i] == 0)
            cout << i << " ";
    cout << endl;
    system("pause");
}