<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u>
*** Исходная матрица ***
80 9 -8 32 37 75 43 -72
71 -79 94 -20 -64 -37 -98 53
19 84 -63 -4 17 5 38 -86
-32 56 87 -43 28 -40 -35 24
--------------------------------
Положительные элементы:
80 9 32 37 75 43 71 94 53 19 84 17 5 38 56 87 28 24
Максимальный по модулю элемент: 98
Командная строка. это строка заведует управлениями всех программ
У Светы не мишка. У Оли не кукла и не заяц. У Тани не заяц. У Маши не паровоз, не заяц и не мишка, значит у Маши - кукла. У Тани не паровоз.
Получаем, что у Тани не паровоз и не заяц, а кукла уже у Маши, значит у Тани - мишка. У Оли не заяц, не кукла и не мишка, значит у Оли паровоз. И Свете остается заяц.
Маша - кукла, Таня - мишка, Оля - паровоз, Света - заяц.
Вроде так)
Program chetnoe;Uses crt;Var x:integer;BeginClrscr;Writeln ('Ведите двузначное число');Readln(x);IF X mod 2=0 then Writeln ('Число четное')else Writeln ('Число нечетное');End.