Question

найти минимальное значение в массиве и изменить его порядковый номер и ввести новый массив

Answer 1

uses Crt;
Var
   A:array[1..256] of integer;
   i,iMin,N,B:integer;
Begin
ClrScr;
Randomize;
Write('N = ');ReadLn(N);
Write('A(',N,'):');
iMin:=1;
For i:= 1 to n do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i] < A[iMin] then iMin:=i;
    End;
WriteLn;
WriteLn('Min(A) = ',A[iMin],'[',iMin,']');
Write('Min = ');ReadLn(i);
B:=A[i];
A[i]:=A[iMin];
A[iMin]:=B;
Write('A(',N,'):');
For i:= 1 to n do
    Write(' ',A[i]);
ReadKey
End.