Program f 1 Var a array 1

Program f 1; Var a: array [1. . 10] of integer; i, : integer; BEGIN Randomize; s: =0; For i: =1 to 10 do Begin a[i]: = random (30)+(-1)*(15); Write (a[i] : 4); end; For j: =10 downto 1 do for i: =1 to j do if a[i] > a[i+1] then begin X: = a[i]; a[i]: = a[i+1]; a[i+1]: =x; end; writeln; For i: =1 to 10 do Write (a[i] : 4); End.

Задан одномерный массив из 10 целых элементов (положительных и отрицательных), заданного случайным образом, в диапазоне от -10 до 10. Если элементы массива >0, то заменить эти элементы на « 0» , если элементы массива <0, то заменить эти элементы на « 1» и вывести новый массив на экран.

Program f 2; Var a: array [1. . 10] of integer; i : integer; BEGIN Randomize; p: =1; For i: =1 to 10 do Begin a[i]: = random (20)+(-1)*(10); Write (a[i] : 4); if a[i] > 0 then a[i]: =0; if a[i] < 0 then a[i]: =1; End; writeln; For i: =1 to 10 do Write (a[i] : 4); End.

1) Задан массив, состоящий из 15 целых элементов (положительных и отрицательных), заданного случайным образом, в диапазоне от -10 до 10. Отсортировать элементы массива по возрастанию. 2) Задан одномерный массив из 10 целых элементов (положительных и отрицательных), заданного случайным образом, в диапазоне от -10 до 10. Если элементы массива >0, то заменить эти элементы на « 0» , если элементы массива <0, то заменить эти элементы на « 1» и вывести новый массив на экран.

3) Задан одномерный массив из 10 целых элементов (положительных и отрицательных), заданного случайным образом, в диапазоне от -20 до 20. Если элементы массива <0, то увеличить их на 10 и вывести новый массив на экран.