<em><u>Pascal:</u></em>
var a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
end.
<u><em>C++:</em></u>
#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = ";
cin >>a[i];
}
return 0;
}
Program z1;
var a:array[1..10] of byte;
i,j,k,r:byte;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(100);
write(a[i],' ');
a[i]:=(a[i] div 10)+(a[i] mod 10)
end;
k:=1;writeln('');
for j:=0 to 18 do begin
i:=k;
while i<=10 do begin
if a[i]=j then begin
r:=a[k];a[k]:=a[i];a[i]:=r;
write(a[k],' ')
end;
i:=i+1
end
end;
readln
end.
1) 795 в двоичной = 1100011011
71 в двоичной = 1000111
1100011011 - 1000111 = 1011010100
1011010100 в десятичной = 724
2) 640 в двоичной = 1010000000
71 в двоичной = 1000111
1010000000 - 1000111 = 1000111001
1000111001 в десятичной = 569
В целях экономии - они есть практически везде и нет необходимости тратить время и деньги на прокладку дополнительных линий связи