Задать массив размерности 25 случайным образом от -10 до ...
Задать массив размерности 25 случайным образом от -10 до 9.Поменять местами первый минимальный и последний максимальный элементы массива.Вывести первоначальный массив и получившийся массив. Помогите решить в паскале
Есть ответ
12.12.2022
517
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
