PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!

begin
ReadSeqInteger(ReadlnInteger).Where(t->t.IsEven).Max.Println
end.

Пример
6
20 31 -18 0 14 7
20

0 0

4 года назад

Дана квадратная целочисленная матрица порядка n. Сформировать результирующий одномерный массив, элементами которого являются пос

VLYUBLEN RU

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(n*4*'-');
var b:=a.Rows.Select(row->row.Where(t->t.IsOdd).DefaultIfEmpty.Average)
 .ToArray;
b.Println;
end.

Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица ***
40 -38 16 -70 26
87 7 -31 99 34
-34 -47 -33 32 56
66 71 41 7 80
55 42 -22 7 86
--------------------
0 40.5 -40 39.6666666666667 31

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите пожалуйста в С++... даны два числа a,b.определить сумму их цифр и вывести сообщение. 1. a=56,b=38. 2.a=47,b=91. 3.a=29,

Агата91

#include <iostream>
using namespace std;

int main()
{
int a, b, s;
cout << "a = ", cin >> a, cout << "\n";
cout << "b = ", cin >> b, cout << "\n";
s = a/10+a\%10+b/10+b\%10;
cout << "s = " << s;
return 0;
}

Пример:
a = 56
b = 38
s = 22

0 0

4 года назад