Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.
С помощью линейки измерь каждую сторону в милиметрах,затем сложи получившися числа сложи и переведи ответ в сантиметры
Бит может принимать значения 0 или 1.(2)8 Бит - длинна строки.(8)<span>Следовательно различных комбинаций может быть: 2^8=256</span>