Question

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

Answer 1

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[k] then k:=i;
a[k]:=a[k]+100;
for i:=1 to 9 do
write(a[i],' ');
writeln;
writeln('Массив после престановки максиального элемента с первым:');
j:=a[1];
a[1]:=a[k];
a[k]:=j;
for i:=1 to 9 do
write(a[i],' ');
writeln;
end.

3 задание
var
a:array [1..10] of integer;
i,mn,mx:integer;
begin
writeln('Введите массив:');
for i:=1 to 10 do
readln(a[i]);
mn:=1; mx:=1;
writeln('Массив');
for i:=1 to 10 do
begin
if 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 do
write(a[i],' ');
writeln;
end.