Question

ПОМОГИТЕ СРОЧНО С ЗАДАНИЕМ ПО PASCAL!!! ПОЖАЛУЙСТА!!!!

Answer 1

Ответ:

Объяснение:

program KillThisFckngArray;

const

   ArraySize = 20;

   MaxInArray =1000;

   

var

   x : array[1..ArraySize] of real;

   Min : real;

   i, PosToFind, PosToExch : integer;

begin

   

   for i:= 1 to ArraySize do x[i]:=Random(MaxInArray);

   Min:=x[1]; PosToExch :=1;

   for i:= 1 to ArraySize do begin Write(x[i]:5:1); Write(' '); end;

   WriteLn();

   Write('Input position to find minimum: ');

   ReadLn(PosToFind);

   For i:=1 to PosToFind do begin

       if x[i] < Min then begin

           Min:=x[i];

           PosToExch := i;

       end;

   end;

   x[PosToExch] := x[ArraySize];

   x[ArraySize] := Min;

   WriteLn('Local minimum is: ', Min:5:1 ,' at position no: ',PosToExch);

   Writeln('Modified array is:');

   for i:= 1 to ArraySize do begin Write(x[i]:5:1); Write(' '); end;

   WriteLn();

   Writeln('Divided array is:');

   for i:= 1 to ArraySize do begin Write((x[i]/Min):5:1); Write(' '); end;

end.