// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(4,8,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var sa:=a.Rows.SelectMany(x->x); Writeln('Положительные элементы:'); sa.Where(x->x>0).Println; Write('Максимальный по модулю элемент: ',sa.Max(x->abs(x))); end.
summ := 0;
for i:=13 to k do
if i mod 6 = 0 then summ:= summ + i;
write(summ);