Число 1305 в десятиличной перевести в 2,5,8 систему счисления

Question

Информатика: Число 1305 в десятиличной перевести в 2,5,8 систему счисления​

Dasha20061104 · Accepted Answer

{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:4);

end;
end;
for i:=1 to n do
if a[i,i]>0 then
begin
s:=s+a[i,i];
k:=k+1;
end;
writeln;
if k<>0 then
writeln('SR=', s/k)
else
writeln('Net <0');
end.

Число 1305 в десятиличной перевести в 2,5,8 систему счисления​

MOGZ ответил