var x: array[1..n] of integer; i, k, t, min: integer;
begin Randomize; Writeln('Исходные элементы массива'); min := 1000; for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:4); if min > x[i] then begin min := x[i]; k := i end end; t := x[k]; x[k] := x[1]; x[1] := t; Writeln; Writeln('Результирующие элементы массива'); for i := 1 to n do Write(x[i]:4); Writeln end.
Мы живем в двадцать первом веке. Это век передовых технологий и научно-технического прогресса. Смело можно сказать, что сейчас у большинства молодежи имеются компьютеры и различная современная техника. Многие задаются вопросом : служит ли компьютер или наоборот влияет негативно на нашу жизнь? Я определенно могу ответь, что для меня, компьютер является Во-первых, там я могу достать всю необходимую информацию не выходя из дома. Во-вторых, постоянно узнаю новые события о своей стране, о зарубежных государствах да в различных сферах деятельности. В третьих, компьютер служит отличным развлекательным гаджетом отвлечься от бытовых проблем. Я хочу сказать, что компьютер на самом деле - вещь необходимая и нужная. Главное, уметь им пользоваться. Только от вас зависит, будет вредить он вам или
n = 15;
var
x: array[1..n] of integer;
i, k, t, min: integer;
begin
Randomize;
Writeln('Исходные элементы массива');
min := 1000;
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
if min > x[i] then begin
min := x[i];
k := i
end
end;
t := x[k]; x[k] := x[1]; x[1] := t;
Writeln;
Writeln('Результирующие элементы массива');
for i := 1 to n do Write(x[i]:4);
Writeln
end.
Исходные элементы массива
-28 -22 -15 3 27 29 34 -29 -49 -37 -19 31 40 -36 4
Результирующие элементы массива
-49 -22 -15 3 27 29 34 -29 -28 -37 -19 31 40 -36 4