<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(5,20,40); a.Println;
Writeln('S=',a.Where(x->x mod 8=0).Sum)
end.
<u>Пример</u>
24 23 35 40 22
S=64
[33 / 8] = 4
33 - 4*8 = 1
Десятичное 33 в восьмеричном представлении = 41
C#
using System; using<span> System.Text;</span>
class Mean
{
public int main()
{
int len;
Console.Write("Введите диагональ матрицы: "); len=(int)Console.ReadLine();
int[,] matrix = new int[len,len];
Console.WriteLine("Среднее арифметическое: ", average(matrix));
}
public int average(int[] mas)
{
int ans=0;
for(int x = 0; x<mas.Length;x++)
{
ans+=mas[x];
}
return ans;
}
public int[] diagonal(int[,] mas)
{
int[] ans = new int[mas.GetLength(0)];
for(int x=0; x<ans.Length; x++)
{
ans[x]=mas[x,x];
}
return ans;
}
}