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

Program praktika8;
Uses CRT;
Const n=10;
Var a: Array[1..n] Of Integer;
v_min, v_max, i, otr, pol, n_pol, n_otr, count: 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;
count:=0;
For i:= 1 to n Do
Begin
If (a[i]<0)
Then
Begin
otr:=a[i];
n_otr:=i;
count:=1;
End;
If (count=1)
Then Break;
End;
For i:= 1 to n Do
Begin
If (a[i]>0)
Then
Begin
pol:=a[i];
n_pol:=i;
End;
End;
For i:= 1 to n Do
Begin
If (i=n_otr)
Then a[i]:=pol;
If (i=n_pol)
Then a[i]:=otr;
End;
WriteLn;
WriteLn('первый отрицательный элемент: ', otr,' позиция: ', n_otr);
WriteLn;
WriteLn('последний положительный элемент: ', pol,' позиция: ', n_pol);
WriteLn;
WriteLn('Выходной вектор:');
WriteLn;
For i:= 1 to n Do
Begin
Write(a[i]:5);
End;
ReadLn;
End.