составить программу1)найти сумму всех элементов массива (1до10) random.2)сформировать массив из положительных и отрицательных эл
составить программу
1)найти сумму всех элементов массива (1до10) random.
2)сформировать массив из положительных и отрицательных элементов от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
Var s: string; n,m: integer; begin write('строка: '); readln(s); n:=length(s); m:=n div 2; if n mod 2 = 1 then delete(s,m+1,1) else delete(s,m,2); writeln(s) end. <span> </span>