Задание:
Написать програму для Паскаля: Дан линейный массив, содержащий положительные и отрицательные целые числа, n=10. Создать новый массив, в котором содержатсятолько положительные элементы из исходного масива, упорядочить этот новый массив по возрастанию.
Решение:
var i, j, k, p: integer; a, b: array[1… 10] of integer; begin k: =0; for i: =1 to 10 do begin a[i]: =random (20) — 10; write (a[i]: 3); if a[i] > 0 then begin k: =k+1; b[k]: =a[i]; end; end; for i: =1 to k — 1 do for j: =i+1 to k do if b[i] > b[j] then begin p: =b[i]; b[i]: =b[j]; b[j]: =p; end; writeln; for i: =1 to k do write (b[i]: 3); end.
Знаете другой ответ?