Лично я считаю, что без программистов сложно представить современную жизнь. Интернет играет огромную роль в в развитии бизнеса и не только. Я считаю, что профессия программиста-самая интересная и востребованная. Они создают из груды металла разумные машины, которые облегчают труд людей.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.SelectMany(x->x).ToArray; var nn:=ReadInteger('1. Введите число N:'); Write('Максимальный из элементов, не превосходящий N'); if nn<b.Min then Writeln(', не существует') else Writeln(', равен ',b.Where(x->x<=nn).Max); Write('2. Максимальный элемент в массиве ['); var i:=b.IndexMax; Writeln(i div n+1,',',i mod n+1,']=',a[i div n,i mod n]) end.
Лично я считаю, что без программистов сложно представить современную жизнь. Интернет играет огромную роль в в развитии бизнеса и не только. Я считаю, что профессия программиста-самая интересная и востребованная. Они создают из груды металла разумные машины, которые облегчают труд людей.