ЗАДАНИЕ 3. Дан вещественный одномерный массив b, состоящий из N элементовДан вещественный одномерный массив b, состоящий из N элементов. Произведите сортировку элементов заданного массива по убыванию методом выбора. Решение:
Нет Да
Нет
Да Нет Да
Program sortirovka; Var N, i, k, c: integer; max: real; b: array [1..50] of real; begin writeln (‘Введите количество элементов в массиве ’); readln (N); for i: =1 to N do begin write (‘Введите b(‘, i, ‘) ‘); readln (b[i]) end; for k: =1 to N-1 do begin max: =b[k]; c: =k; for i: =k+1 to N do if b[i]> max then begin max: =b[i]; c: =I end; b[c]: =b[k]; b[k]: =max end; for i: =1 to N do writeln (‘b[‘, i, ‘]=’, b[i]: 7: 3); readln end.
|