Дан массив размера n. осуществить сдвиг элементов массива вправо на одну позицию (при этом a1 перейдет в а2, а2 - в an-i - в an, а начальное значение последнего элемента будет потеряно). первый элемент полученного массива принять равным 0.

const n=10;

var a: array[1..n] of integer;

i: integer;

begin

for i: =1 to n do

begin

a[i]: =random(21)-10;

write(a[i],' ');

end;

writeln;

for i: =n downto 2 do a[i]: =a[i-1];

a[1]: =0;

for i: =1 to n do write(a[i],' ');

writeln;

end.

пример:

-9 -8 -8 -6 -4 -4 5 2 7 -6  

0 -9 -8 -8 -6 -4 -4 5 2 7

const n=10;

var a: array [1..n] of integer;

i: integer;

begin

write(' исходный массив: ');

for i: =1 to n do

begin

a[i]: =random(90)+10;

write(a[i]: 3,' ')

end;

writeln;

for i: =1 to n-1 do a[n-i+1]: =a[n-i];

a[1]: =0;

write('сдвинутый массив: ');

for i: =1 to n do write(a[i]: 3,' ')

end.

//pascal

var a, b: integer;

begin

write ('введите два числа: ') ; readln (a, b) ;

if ((a < 0) and (b < 0)) then

writeln (a * b)

else

if ((a > 0) and (b > 0)) then

writeln (a + b)

else

writeln (a*3 + b*2) ;

end.