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.
1.
Даные, програмы, работа
2.
а.)
2строка
б.)
2строка
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=50;
Repeat
S:=S+A;
K:=K+5;
A:=A+1;
Until A>150;
WriteLn('SR = ',2*S);
WriteLn('K = ',K);
End.
Из всего перечисленного только биты, как и байты, являются единицами измерения количества информации.
и в одном бите обычно 1/8 байта.
установление соотношения между информацией и температурой в рамках информатики невозможно, равно как и длиной, временем,напряжении и т.п.