ПОЛЬЗА ОТ ИНТЕРНЕТА .
Интернет облегчает жизнь многим людям. В работе человека он очень практичный и удобный, если раньше данная работа выполнялась в течение двух, а то и трех дней, то сегодня с мировой сети можно сделать всю работу всего за час.
Многие люди инвалиды могут теперь только с компьютера и наличии интернета выполнять работу дома и тем самым зарабатывать себе на жизнь.
Интернет так же выполняет познавательную роль, вы можете путешествовать по всему миру, не отходя от своего компьютера. Перед вами открывается весь земной шар со своими райскими уголками. Теперь не нужно тратить кучу денег и покупать различные энциклопедии, достаточно только открыть поисковую систему и прописать интересующий вас вопрос.
Конечно, нельзя не отметить и развлекательную функцию интернета. На сегодня существует множество онлайн игр, форумов по интересам и много другого.
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.