Задано масив з n цілих чисел. Знайдіть найменший елемент масиву, що зустрічається найпершим та поміняйте його з першим елементом у масиві, не змінюючи порядок інших елементів.
215
397
Ответы на вопрос:
const
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
Объяснение:
Популярно: Информатика
-
vixoreva9824.05.2023 09:04
-
izibaevsergei28.08.2020 21:41
-
назым2431.08.2021 12:35
-
Анонимчик888803.09.2022 06:02
-
azilhan107.06.2021 05:11
-
karina1zaporojckaya05.05.2021 15:20
-
ulzhan1606199904.03.2022 18:15
-
marta6215.05.2023 00:33
-
kerimagaevakk02.12.2022 03:46
-
янубтытруп24.03.2021 04:12