var a, b, c, d, i, j :integer; s :array [1..100,1..100] of integer; begin b:=63999; c:=-63999; for i:=1 to 15 do begin writeln; for j:=1 to 15 do begin s[i,j]:=random(127998)-63999; a:=a+s[i,j]; if s[i,j]>c then c:=s[i,j]; if s[i,j]<b then b:=s[i,j]; write (s[i,j],' '); end; end; writeln; writeln ('Сумма элементов = ', a); writeln ('Максимальный элемент = ', c); writeln ('Минимальный элемент = ', b); end.
5 байт
1 байт = 8 бит , то-есть 40/8 = 5 байт
Если мой ответ вам
выберете его лучшим