Уровень b. напишите программу, которая заполняет массив из n = 10 случайными числами в диапазоне [10,30], выводит его на экран, а затем выполняет реверс первой половины массива. пример: массив: 12 34 15 27 17 25 16 23 18 20реверс: 17 27 15 34 12 25 16 23 18 20на паскале(старая версия)

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

трех зайцев по углам, двоих вдоль стен

к серой цапле на урок прилетело пять сорок.из них лишь три сороки приготовили уроки.двое лодырей-сорок прилетело на урок.

program t3;

var a,b,c: real;     {допустимо поменять на integer}

begin

writeln ('vvedit a,b,c');

readln (a,b,c);  

if (a< =b+c) and (b< =a+c) and (c< =a+b) then writeln ('0'); else

if (a=c) and (c=b) then writeln (3);   else

if (a=c) or (a=b) or (b=c) then writeln ('2'); else

writeln ('1');

readln

end.