Составьте и запишите программу «Сдвиг в массиве». Переставьте вещественные элементы массива A(1:n) таким образом, чтобы они шли в следующем порядке: А(n), А(1), А(2), … , A(n-2), A(n-1), т.е. в массиве произведите сдвиг элементов на одну позицию вправо (в качестве подсказки предлагаю блок-схему).
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
x,y: integer;
begin
for x:=1 to n do begin
for y:=1 to n do begin
a[x,y]:=random(21)-10;
write(a[x,y]:4);
if a[x,y] mod 2=0 then a[x,y]:=0;
end;
writeln;
end;
writeln;
for x:=1 to n do begin
for y:=1 to n do
write(a[x,y]:4);
writeln;
end;
end.
2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
x,y: integer;
begin
for x:=1 to n do begin
for y:=1 to n do begin
a[x,y]:=random(21)-10;
write(a[x,y]:4);
end;
writeln;
end;
writeln;
for x:=1 to n do
for y:=1 to n do
if a[x,y]=0 then writeln(x,',',y);
end.
10111(2) т.е число в двоичной с.с необходимо перевести в 10-ную с.с
10111(2) =23(10)
275(8)=189(10)
1F3(16)=499(10)
112(10)=1110000(2)
если число в 10-ной с.с то 94(10)=136(8), а если число в 16-ричной с.с , то 94 (16)= 224(8)
123(10)= 7В (16)
1110011001(2)=1631(8)
Если в 8-ричной с.с, то 251(8)=10101001(2), если число в 10-ной с.с, то 251(10)=11111011(2), если число в 16-ричной с.с, то 251(16)= 1001010001(2)
1111000(2)= 78(16)
1F5(16)=111110101(2), (буквы I в 16-ричной системе счисления нет)