Постройте таблицу истинности: (х*у)*х - id182508420210109 от Danfdffefd 09.01.2021 18:47

Question

Информатика: Постройте таблицу истинности: (х*у)*х

Danfdffefd · Accepted Answer

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
var a:=MatrRandom(4,5,-20,20).Println;
var c:=a.ElementsByRow;
Println('Кол-во положительных ->',c.Where(t->t>0).Count);
Println('Кол-во кратных 7 ->',c.Where(t->t mod 7=0).Count);
Println('Сред. арифм. отрицат. ->',c.Where(t->t<0).Average);
var b:=a.ElementsWithIndexes.MinBy(t->t[0]);
Writeln('Минимальный ->', b[0],'[',b[1]+1,',',b[2]+1,']');
b:=a.ElementsWithIndexes.Where(t->t[0]<0).MaxBy(t->t[0]);
Writeln('Максимальный отриц. ->', b[0],'[',b[1]+1,',',b[2]+1,']');
end.

Пример:
-10 6 12 7 4
-8 -4 3 -1 6
9 -2 16 19 -18
18 4 -3 12 -8
Кол-во положительных -> 12
Кол-во кратных 7 -> 1
Сред. арифм. отрицат. -> -6.75
Минимальный ->-18[3,5]
Максимальный отриц. ->-1[2,4]

Постройте таблицу истинности: (ху)х

MOGZ ответил