// PascalABC.NET 3.3
begin
var a:=ArrRandom(45,-50,50);
a.Println;
a.Reverse.Println;
a.Sort; a.Println;
end.
Пример (для 10 элементов)
-36 25 -5 -43 -30 40 -9 -38 -42 6
6 -42 -38 -9 40 -30 -43 -5 25 -36
-43 -42 -38 -36 -30 -9 -5 6 25 40
Shift+F3 хахахахах,элементарное не занют
Не понял, зачем тебе переменная m? Вот программа
program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
1) s=0+3*2=6
2)s=6+4*2=14
3)s=14+5*224
4)s=24+6*2=36
5)s=36+7*2=50
Человек работает с компьютером с помощью мыши(для компьютера), с интернетом и с помощью клавиатуры