Сформировать и вывести на экран последовательность из n
элементов, заданных датчиком случайных чисел на интервале [-23, 34].
Program posled;
Var a: array[1..100] of integer;
i, n: integer;
begin
Write (‘Сколько элементов? ’ ); Readln (n);
Для i=1 To n do
begin
a[i]:= Random (58)-23;
writeln (a[i],’ ‘);
end;
end.

  друг  жить на любом этаже дома. поэтому, для решения используем уравнение 24=х. но 24=16. следовательно, х=16. в доме 16 этажей.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

а) pas вот это правильный ответ!

var x,y: integer;

begin

readln(x);

if x< 1 then y: =-2*x+11

else y: =x*x-2;

writeln(y);

end.