program raf105;
const
n = 4;
var
a: array[1..n,1..n] of integer;
i,j,max,sum: integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:= random(-9,9); // Заполнение массива
write(a[i,j]:2,' '); // Вывод массива
if a[i,j] < 0 then
if max = 0 then
max:= a[i,j]
else
if max < a[i,j] then
max:= a[i,j];
if i = j then
sum:= sum + a[i,j];
end;
writeln;
end;
writeln('Максимальный среди отрицательных элементов: ',max);
writeln('Сумма элементов главной диагонали: ',sum);
end.
PascalABC
Позиционная система счисления по целочисленному основанию 60 использовалась в древние времена на Ближнем Востоке. Первый шестидесятеричный знак после запятой называется минута (′), второй — секунда (″). Ранее использовались названия терция (‴) для третьего знака, кварта (IV) для четвёртого знака, квинта (V) для пятого знака и т. д. Название «минута» происходит от того же слова, что и «минимум» — обозначает «малая часть», а «секунда», «терция» и остальные являются порядковыми — «второе» деление на части, «третье» деление на части и т. п. Частей традиционно берётся по 60.
Вавилонская система счисления применялась за две тысячи лет до н. э. Для записи чисел использовались всего два знака: прямой клин ↓ для обозначения единиц и лежачий клин ← для обозначения десятков внутри шестидесятеричного разряда. Новый шестидесятеричный разряд начинался с появлением прямого клина после лежачего клина, если рассматривать число справа налево:
Вначале нуля не было. Позже ввели обозначение для пропущенных шестидесятеричных разрядов, что соответствует появлению нуля, но в первом разряде справа этот знак не ставился, что приводило к неоднозначности записи чисел и для определения абсолютного значения числа требовались дополнительные сведения.
Объяснение: