pascal
Объяснение:
var i, n, mysign, nsign: integer;
ismon: boolean;
a: array of integer;
begin
Write('Введите размер массива: '); ReadLn(n);
SetLength(a, n);
WriteLn('Введите Элементы массива: ');
for i := 0 to n - 1 do ReadLn(a[i]);
mysign := sign(a[1] - a[0]);
if mysign >= 0 then mysign := 1;
ismon := true;
for i := 2 to n - 1 do
begin
nsign := sign(a[i] - a[i - 1]);
if nsign >= 0 then nsign := 1;
if nsign <> mysign then ismon := false;
end;
if ismon then WriteLn('Массив монотонный') else WriteLn('Массив не монотонный');
end.
int[,] a = { { 1, 2, 17, 16, 6, 455, 867 }, { 1, 2, 17, 8, 5757, 455, 867 }, { 1, 2, 17, 8, 5757, 455, 867 }, { 1, 2, 17, 8, 16, 455, 867 }, { 1, 2, 17, 8, 5757, 455, 867 } }; //естественно тут ваш двухмерный массив.
int i = 0;
int s = 0;
for (int j = 0; j < a.GetLength(1); j++)
{
var t = a[1, j];
if (t != 0 & t > 15) { i++; }
}
Console.WriteLine(i);
i = 0;
for (int j = 0; j < a.GetLength(0); j++)
{
var t = a[j, 4];
if (t%2!=0) { i++; s += t; }
}
if (i != 0) { Console.WriteLine(s / i); }
i = 0;
s = 0;
for (int j = 0; j < a.GetLength(1); j++)
{
var t = a[3, j];
if (t % 4 == 0) { i++; s += t; Console.WriteLine(t); }
}
if (i != 0) { Console.WriteLine(s / i); }
