Объяснение:
a - массив;
sum - сумма элементов массива;
avrg - среднее значение.
Пример алгоритма решения задачи:
Заполняем массив (например, случайными числами).
Переменной sum изначально присваиваем значение 0.
Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.
Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).
Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)
Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.
const N = 10;
var
a: array[1..N] of integer;
i: byte;
avrg: real;
sum: integer;
begin
randomize;
for i:=1 to N do a[i]:=random(50)+1;
sum := 0;
for i:=1 to N do sum := sum + a[i];
avrg := sum/N;
// весь массив
for i:=1 to N do write(a[i]:3);
writeln;
writeln('Среднее арифм.: ',avrg:4:2
for i:=1 to N do if a[i]>avrg then write(a[i]:3);
writeln;
end.
Пример выполнения программы:
7 36 21 48 33 46 7 17 19 41
Среднее арифм.: 27.50
36 48 33 46 41
using System;
namespace restless
{
class Program
{
static void Main()
{
int x = Convert.ToInt32(Console.ReadLine());
int _counter = x.ToString().Length;
bool IsEven = (x & 1) == 0 ? true : false;
if (_counter == 1 && IsEven)
Console.WriteLine("Четное однозначное число");
else if (_counter == 1 && !IsEven)
Console.WriteLine("Нечётное однозначное число");
else if (_counter == 2 && IsEven)
Console.WriteLine("Чётное двузначное число");
else if (_counter == 2 && !IsEven)
Console.WriteLine("Нечётное двузначное число");
else if (_counter == 3 && IsEven)
Console.WriteLine("Чётное трехзначное число");
else if (_counter == 3 && !IsEven)
Console.WriteLine("Нечётное трехзначное число");
}
}
}
