2. Для обчислення максимального значення потрібно обрати функцію позначену цифроют ХАБТосума Σ Сума 1 ання Знайти й тр" виділити » 2 Середнє Кількість Максимум 3 Мінікум Інші функцій 4
// PascalABC.NET 3.2, сборка 1488 от 21.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,0,199); a.Println(4); Writeln(4*a.ColCount*'-'); Write('Искомые числа: '); var s:=a.Rows.SelectMany(x->x).Where(x->x.Between(10,99)) .Where(x->(x div 10+x mod 10).IsEven); s.Println; Writeln('Количество чисел равно ',s.Count) end.
namespace Matrix
{
class MainClass
{
private static int size; // Размер матрицы
public static void Main (string[] args)
{
size = Int16.Parse(Console.ReadLine ());
int[,] matrix = new int[size, size];
for (int i = 0; i < size; i++) {
for (int j = 0; j < size; j++) {
if (i == 0 || j == 0 || i == (size - 1) || j == (size - 1)){
matrix [i, j] = 1;
} else {
matrix [i, j] = 0;
}
}
}
/*for (int i = 0; i < size; i++) { // Вывод матрицы в консоль
for (int j = 0; j < size; j++) {
Console.Write (matrix [i, j]);
}
Console.WriteLine ();
}*/
}
}
}
// Внимание! Если программа не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,0,199);
a.Println(4); Writeln(4*a.ColCount*'-');
Write('Искомые числа: ');
var s:=a.Rows.SelectMany(x->x).Where(x->x.Between(10,99))
.Where(x->(x div 10+x mod 10).IsEven);
s.Println;
Writeln('Количество чисел равно ',s.Count)
end.
Пример
Количество строк и столбцов в массиве: 4 7
*** Исходный массив [4,7] ***
65 112 78 133 52 108 39
73 162 64 31 55 156 107
14 105 88 55 16 146 143
19 97 33 138 16 37 198
Искомые числа: 39 73 64 31 55 88 55 19 97 33 37
Количество чисел равно 11