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

1,2 заданиеvara:array [1..9] of real;i,k:integer;j:real;beginrandomize;writeln('Массив:');for i:=1 to 9 dobegina[i]:=(random(410)+100)/10;write(a[i],' ');end;writeln;writeln('Массив после увелечения минимального элемента на 100:');k:=1;for i:=2 to 9 doif a[i]<a[k] then k:=i;a[k]:=a[k]+100;for i:=1 to 9 dowrite(a[i],' ');writeln;writeln('Массив после престановки максиального элемента с первым:');j:=a[1];a[1]:=a[k];a[k]:=j;for i:=1 to 9 dowrite(a[i],' ');writeln;end.3 заданиеvara:array [1..10] of integer;i,mn,mx:integer;beginwriteln('Введите массив:');for i:=1 to 10 doreadln(a[i]);mn:=1; mx:=1;writeln('Массив');for i:=1 to 10 dobeginif a[i]<a[mn] then mn:=i;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 dowrite(a[i],' ');writeln;end.