(9; 4), (8; 9), (8; 11), (9; 12), (9; 14), (8; 15) (7; 15), (5; 13), (5; 12), (4; 11), (2; 10), (4; - id1283180220221218 от maksitron 18.12.2022 20:18

Question

Информатика: (9; 4), (8; 9), (8; 11), (9; 12), (9; 14), (8; 15) (7; 15), (5; 13), (5; 12), (4; 11), (2; 10), (4; 9) (5; 9), (5; 7), (4; 7), (4; 5), (5; 6), (5; 3), (4; 3) (4; 1), (3; 1), (3; 0), (5; 0), (5; 2), (7; 2), (7; 1) (9; 1), (9; 0), (10; 0), (10; 2), (8; 2), (9; 3), (9; 4), (11; 4), (11; 9) можно это в draw man abc pashal

maksitron · 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 ответил