FLATRON IDE Channel 2. Slave Disk : MO-RW,ATA 160 DE Channel 3. Master Disk : LRG.ATA 100, 256GB PCI - id1664435520220901 от юсик17 01.09.2022 12:49

Question

Информатика: FLATRON IDE Channel 2. Slave Disk : MO-RW,ATA 160 DE Channel 3. Master Disk : LRG.ATA 100, 256GB PCI device listing bus No. Device No. Func No. Vendor device Class Device Class IRO 10 5 15 7 10 5 27 8006 2718 6403 Multimedia device 0 23 8086 2708 8083 USB 1.8/1.1 UHCI Cutrir 0 29 8886 2703 6C83 USB 1.8/1.1 UHCI Cutrir @ 8686 270A 8083 USB 1.8/1.1 UHCI Cntrlr 0 29 8686 2703 8083 USB 1.8/1.1 UHCI Cntrlr 0 8686 270C 6083 USB 2.0 EHCI Cutrir Q 31 1 8006 270F 0101 IDE Cutrir 31 2 8086 2700 0181 DE Cntrlr

юсик17 · Accepted Answer

Var
a: array[1..n] of integer;
k, i, m: byte;
min: integer;

begin
Write('Razmer massiva: ');
Readln(k);
if (k < 0) or (k > 100) then
begin
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');
Readln;
Exit;
end;
Randomize;
Writeln('Ishodn. massiv: ');
for i:=1 to k do
begin
a[i]:=Random(101)-50;
write(a[i]:4);
end;
min:=a[1];
for i:=2 to k do
if a[i] < min then
begin
min:=a[i];
m:=i;
end;
a[m] := a[1];
a[1] := min;
Writeln;
Writeln('Min element = ', min:4, ' v posicii ', m:3);
Writeln('Rezult. massiv: ');
for i:=1 to k do
write(a[i]:4);
readln;
end.

MOGZ ответил