Т.к. Гарри жил в мире маглов он мог бы использовать любое вычислительное устройство безотносительно его магических Следуя ходу серии книг я бы на его месте приобрела портативные пыле,ударо,взрывозащищённые устройства класса защиты не ниже IP95, включающие в себя автономные источники питания на делящихся элементах в виду высочайшей степени автономности. Так же я бы предпочла корпус из полиамидовых смол на титановом армировании, с напылёнными диэлектриками слоем не меньше 50 + заполнение сот углеродом или свинцовыми сплавами для избежания лучевого поражения кожи.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var k:=4; var a:=MatrRandom(k+1,k+1,-99,99); for var i:=0 to k do a[i,i]:=-1; a.Println(4); Writeln(4*k*'-'); var s:=a.ElementsByRow; // последовательность, памяти не занимает Writeln('Количество элементов, оканчивающихся на ноль: ', s.Where(t->t mod 10=0).Count); Writeln('Количество отрицательных элементов: ', s.Where(t->t<0).Count); Writeln('Количество нулевых элементов: ', s.Where(t->t=0).Count); Write('Сумма элементов побочной лиагонали: '); var sum:=0; for var i:=0 to k do sum+=a[i,4-i]; Writeln(sum) end.
