#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;
}
PascalABC.NET
#1
begin
PartitionPoints(-10, 10, 20).Tabulate(p -> 5*(p**2) + 2*p).Println;
end.
#2
begin
var A := ReadSeqIntegerWhile(p -> p <> 0).ToList;
var x := ReadInteger('Считаем это число: ');
A.Where(p -> p = x).Count.Println;
end.
#3
function IsNumberContainsDigit(number:integer; digit: char):boolean;
begin
var stringnumber := number.ToString;
if stringnumber.contains(digit) then IsNumberContainsDigit:=True else IsNumberContainsDigit := False
end;
begin
var (a, b) := ReadInteger2('a, b: ');
var rng := Range(a, b);
rng.Where(p->IsNumberContainsDigit(p, '0')).Print;
end.
Объяснение: