Объем сообщения 7 5 кбайт известно что данное
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(‘*** Исходная матрица ***’);
var a:=MatrRandom(4,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*’-‘);
var s:=a.ElementsByRow.Where(t->t.Between(-10,5) and t.IsEven);
Writeln(‘На интервале [-10;5] четных элементов ‘,s.Count,
‘, их сумма равна ‘,s.Sum);
var vc:=a.Cols.Select(t->t.Sum);
Write(‘Вектор сумм по столбцам: ‘); vc.Println;
Writeln(‘Среднее арифметическое положительных равно: ‘,
a.ElementsByRow.Where(t->t>0).Average);
Writeln(‘В третьем столбце сумма элементов равна ‘,
a.Col(2).Sum,’, произведение равно ‘,
a.Col(2).Aggregate(1,(p,q)->p*q))
end.
1)Тремя пальцами каждой руки легко нажмите на верхние веки, через 1-2 секунды снимите пальцы с век. Повторите 3 раза. Улучшает циркуляцию внутриглазной жидкости.
2)Упражнение «близко – далеко»: прикрепить небольшую картинку или монетку на окне (либо найти любую точку на окне), смотреть 4-5секунд на картинку, затем столько же на удаленный предмет за окном. Повторите 10 раз. Снимает утомление, облегчает зрительную работу на близком расстоянии.