Напишите программу, которая выполняет реверс части массива, начиная с элемента с номером k и заканчивая элементом с номером m(включительно

Var     i,k,m,j: integer;     a,b: array[1..10]of integer; begin writeln('исходный массив: '); for i: =1 to 10 do   begin   a[i]: =random(50);   write(a[i]: 3);   end; writeln; write('введите k и m: '); readln(k,m); j: =m; for i: =k to m do   begin   b[j]: =a[i];   j: =j-1;   end; for i: =k to m do  a[i]: =b[i]; writeln('измененный массив: '); for i: =1 to 10 do  write(a[i]: 3); end.

Поверхность теплицы - это половина полной поверхности цилиндра радиуса r и высоты c, т.е.(2×π×r×c+2×π×r²)/2 = π×r×(c+r). из нее вычитаем площадь двери a×b и полученную площадь умножаем на количество теплиц n. получаем s=(π×r×(c+r)-а×в)×n a, b, c, r, n - это исходные данные // pascalabc.net 3.2, сборка 1381 от 04.02.2017 begin   var n: =readinteger('количество теплиц: ');   var a,b,c,r: real;   write('введите радиус теплицы и её длину, м: '); read(r,c);   write('введите размеры двери теплицы, м: '); read(a,b);   writeln('потребуется плёнки, м: ',(pi*r*(c+r)-a*b)*n: 0: 2) end. пример количество теплиц: 7 введите радиус теплицы и её длину, м: 3.5 18.4 введите размеры двери теплицы, м: 1.1 1.9 потребуется плёнки, м: 1670.99

Program n1; const n=100; var a,b,c: array [1..n] of integer; i,kp,ko: integer; begin randomize; kp: =0; ko: =0; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(201)-100; write(a[i],' '); end; writeln; for i: =1 to n do if a[i]> 0 then kp: =kp+1 else if a[i]< 0 then ko: =ko+1; writeln('кол-во положительных: ',kp); writeln('кол-во отрицательных: ',ko); for i: =1 to n do begin if a[i]> 0 then b[i]: =a[i] else if a[i]< 0 then c[i]: =a[i]; end; writeln('массив пол. значений: '); for i: =1 to n do if b[i]< > 0 then write(b[i],' '); writeln; writeln('массив отр. значений: '); for i: =1 to n do if c[i]< > 0 then write(c[i],' '); end.