Программа и пример её работы - в прилагаемом файле.
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>
100×1000000/8=12500000 байт в секунду
Если в алфавите 256 символов, значит каждый символ весит:
2^ i = 256
i = 8 бит (1 байт)
Всего в тексте 29 символов, считая пробелы и точку в конце.
Вес всего текста в байтах: 29 * 1 = 29 байт.
Ответ: 29 байт.
Var
num: word;
begin
read(num);
write(num);
end.
__________________________
Все вроде как по заданию