ПАСКАЛЬ! ПОМОГИТЕ, СРОЧНО! Задать случайным образом 9 элементов числового массива – дробные числа от 10 до 50. В этом массиве: 1. Найти минимальный элемент и увеличить его на 100. 2. Найти максимальный элемент и поменять его ме...

ПАСКАЛЬ! ПОМОГИТЕ, СРОЧНО! Задать случайным образом 9 элементов числового массива – дробные числа от 10 до 50. В этом массиве: 1. Найти минимальный элемент и увеличить его на 100. 2. Найти максимальный элемент и поменять его местами с первым элементом. 3. Найти минимальный и максимальный элемент в числовом массиве из 10 элементов, заданных с клавиатуры. Поменять их местами.
Гость
Ответ(ы) на вопрос:
Гость
1,2 задание var a:array [1..9] of real; i,k:integer; j:real; begin randomize; writeln('Массив:'); for i:=1 to 9 do begin a[i]:=(random(410)+100)/10; write(a[i],' '); end; writeln; writeln('Массив после увелечения минимального элемента на 100:'); k:=1; for i:=2 to 9 do if a[i]a[mx] then mx:=i; write(a[i],' '); end; i:=a[mx]; a[mx]:=a[mn]; a[mn]:=i; writeln; writeln('Массив после престановки:'); for i:=1 to 10 do write(a[i],' '); writeln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы