2-тапсырма. 5-суреттегі кез келген заттың атауын төмендегі кестеге жаз. Суреттегі кейіпкерлер ол затты қалай қабылдайтынын кестеде көрсетіп, тиісті орынға «+» таңбасын қой. Заттың атауы Көру Есту Дәм сезу иіс сезу Сипап сезу
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); var a:=MatrRandom(n,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var ijv:=a.ElementsWithIndexes.Select(x->(x[0],x[1],abs(x[2]))) .MaxBy(x->x[2]); for var i:=ijv[0] to n-2 do a.SwapRows(i,i+1); for var j:=ijv[1] to n-2 do a.SwapCols(j,j+1); SetLength(a,n-1,n-1); a.Println(4) end.
Бірінші зат :қалам ол көрмейді естімейді дәм сезбейді иіс сезбейді сипап сезу мүлдем жоқ яғни барғына "-"
екінші зат: робот көреді естімейді дәм сезбейді иіс сезбейді сипап сезу мүлдем жоқ яғни көруге "+" қалғанына "-" минус