<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
Var f1,f2,fn,i,s:integer;
begin
f1:=1; f2:=-1;
i:=2; s:=0;
while i<20 do
begin
i:=i+1;
fn:=f1+f2;
f1:=f2;
f2:=fn;
if i>=7 then s:=s+fn;
end;
writeln('s = ',s);
end.
Результат:
s = -4176
ЦВЕТОПЕРЕДАЧА
Ц В Е
ТОПОР =》 ТОП
ДЕРЕВО =》 ОВЕРЕД =》ЕРЕД
ВРАЧ =》 АЧ
А
Если предметы, цифры или буквы изображены один в другом, то их названия читаются с добавлением предлога "в" (перед или между названий).
Если справа (сверху) от рисунка стоят перевёрнутые запятые (одна или несколько), то отбрасываются буквы в конце слова.
Если предмет на рисунке перевернут, то его название читают справа налево.
Если слева (внизу) от рисунка стоят запятые (одна или несколько), то отбрасываются первые буквы слова (по количеству запятых).
<em>// PascalABC.NET 3.2, сборка 1346 от 25.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var n:=Readinteger('n=');
Writeln(n mod 10, (n div 10) mod 10)
end.
<u>Пример</u>
n= 368
86