Задание:
Задать массив размерности 25 случайным образом от -10 до 9. Поменять местами первый минимальный и последний максимальный элементы массива. Вывестипервоначальный массив и получившийся массив. Помогите решить в паскале
Решение:
const n=25; var a: array[1… n] of integer; i, num, num1, min, max: integer; begin min: =10; max: =0; for i: =1 to n do begin a[i]: =random (20) — 10; write (a[i], '); if (a[i] < min) and (min=10) then begin min: =a[i]; num: =i; end; if (a[i] > max) then begin max: =a[i]; num1: =i; end; end; a[num]: =max; a[num1]: =min; writeln; for i: =1 to n do write (a[i], '); end.
Знаете другой ответ?