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.
Максимальное число, которое может получиться 9+9=18 т.к 99 - максимальное двузначное число, а наименьшее: 1+0=1 (число 10).
211 может получиться, например при числах 56 и 20 1717 может получиться, например при числах 89 и 89 1817 не может получиться, т.к числа записываются в порядке возрастания(неубывания). 1718 может получиться, например при числах 98 и 99 1719 не может получиться, т.к (19>18) 219 не может получиться, т.к (19>18) 21 не может получиться, т.к числа записываются в порядке возрастания(неубывания). 10 не может получиться, т.к (0<1) ответ: 3
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.
211 может получиться, например при числах 56 и 20
1717 может получиться, например при числах 89 и 89
1817 не может получиться, т.к числа записываются в порядке возрастания(неубывания).
1718 может получиться, например при числах 98 и 99
1719 не может получиться, т.к (19>18)
219 не может получиться, т.к (19>18)
21 не может получиться, т.к числа записываются в порядке возрастания(неубывания).
10 не может получиться, т.к (0<1)
ответ: 3