Информатика Практика / 9

Program praktika9;
Uses CRT;
Const n=10;
Var a: Array[1..n] Of Integer;
i, v_max, v_min, max, min, max2, min2, n_min, n_max: Integer;
Begin
WriteLn('Задайте диапазон случайных чисел:');
Write('v_min = ');
ReadLn(v_min);
Write('v_max = ');
ReadLn(v_max);
WriteLn;
WriteLn('Исходный массив:');
WriteLn;
For i:= 1 to n Do
Begin
a[i]:=Random(v_max-v_min+1)+v_min;
Write(a[i]:5);
End;
min:=a[1];
max:=a[1];
min2:=a[2];
max2:=a[2];
For i:= 1 to n Do
Begin
If (a[i]>max)
Then max:=a[i];
If (a[i]<min)
Then min:=a[i];
End;
For i:= 1 to n Do
Begin
If ((a[i]>max2) and (a[i]<max))
Then
Begin
max2:=a[i];
n_max:=i;
End;
If ((a[i]<min2) and (a[i]>min))
Then
Begin
min2:=a[i];
n_min:=i;
End;
End;
For i:= 1 to n Do
Begin
If (i=n_max)
Then a[i]:=min2;
If (i=n_min)
Then a[i]:=max2;
End;
WriteLn;
WriteLn;
WriteLn('Второй максимальный элемент = ', max2,' позиция = ', n_max);
WriteLn;
WriteLn('Второй минимальный элемент = ', min2,' позиция = ', n_min);
WriteLn;
WriteLn('Выходной вектор:');
WriteLn;
For i:= 1 to n Do
Begin
Write(a[i]:5);
End;
ReadLn;
End.