Var C:array [ 1..5]of integer;
i,S:integer;
begin
randomize;
for i:=1 to 5 do begin C[i]:=random(100);
Wruti(C[i],' ');end;
for i:=1 to 5 do S:=S+C[i];
Writeln('<span>произведение элементов массива=',S</span>);
end.
Var a,b:array[1..2,1..3]of integer;
i, j:byte;
Begin
for i:=1 to 2 do
for j:=1 to 3 do readln(a[i,j]);
for i:=1 to 2 do
begin
for j:=1 to 3 do write(a[i,j]:3);
writeln
end;
for i:=1 to 2 do
for j:=1 to 3 do
if i = 1 then b[i,j]:=a[2,j] else
b[i,j]:=a[1,j];
for i:=1 to 2 do
begin
for j:=1 to 3 do write (b[i,j]:3);
writeln
end;
readln
End.
write
101101(2) * 101(2) =
10110100(2)+101101(2) сдвигаем первое на бита влево и складываем с самим собой
10110100
+
00101101
__________
11100001
1 1 1 - это переносы в следующий разряд
11100001(2) = 2^7+2^6+2^5+1 = 128+64+32+1 = 225(10)
101101(2) = 2^5+2^3+2^2+1=32+8+4+1=45(10)
101(2)= 2^2+1=5(10)
45*5=225
var a:array [1..100] of real;
i,n:integer;
t:real;
Begin
randomize;
n:=20;
for i:= 1 to n do begin
a[i]:=random(n*10)- 10*n div 2 ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
t:=a[1]
for i:= 1 to n do begin
a[i]:=a[i]/t ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
End.
/////////////////////////////////////