Pascal
Напишите программу, которая в последовательности натуральных чисел определяет

количество введенных чисел до ввода числа 100

Программа получает на вход натуральные числа, введенные с клавиатуры. Количество

введенных чисел не известно.

Последовательность чисел заканчивается 100

(число 100─ признак окончания ввода, не входит в последовательность).

Код:

using System;namespace ThisAnswerIsNotMine {    class Program    {        private static int a;        private static int b;        private static int c;        private static int d;        private static void Main()        {            int.TryParse(Console.ReadLine()!, out a);            int.TryParse(Console.ReadLine()!, out b);            int.TryParse(Console.ReadLine()!, out c);            int.TryParse(Console.ReadLine()!, out d);                        Console.WriteLine((a / c) * (b / d) >= (b / c) * (a / d) ? "Широкая" : "Узкая");        }    }}

#include <iostream>

int main() {

const int SIZE = 10;

bool isSence = false;

int sum = 0;

int count = 0;

int arr[SIZE];

for (int i = 0; i < SIZE; i++)

{

 arr[i] = rand() % 20 - 10; // "рандомно" заполняем массив от -10 до 10

 std::cout << arr[i] << "\t"; // выводим массив в консоль

 if (arr[i] >= 0)

  isSence = true;

}

for (int i = 0; i < SIZE; i++)

{

 if ((isSence) && (arr[i] > 0))

  sum += arr[i]; //sum = sum + arr[i];

  count++;

}

if (isSence)

 std::cout << "\nсреднее арифметическое положительных чисел = " << double(sum) / count << std::endl; // явное приведение типов

else

 std::cout << "\nВ массиве нету положительных чисел или нету нулей и/или отрицательных чисел" << std::endl;

return 0;

}