В массиве из 20 целых чисел найти наименьший элемент и поменять местами первым элементом. С объяснениями!
В массиве из 20 целых чисел найти наименьший элемент и поменять местами первым элементом.
С объяснениями!
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.Net
const
N = 20;
var
a: array [1..N] of integer;
k, min: integer;
begin
k := 1;
//Получим 1-ый элемент массива
a[1] := Random(41) - 20;
min := a[1];
write(a[1]:4);
//Получим оставшиеся элементы массива
//найдем минимальный, запомним его номер
//и выведем массив на экран
for var i := 2 to N do
begin
a[i] := Random(41) - 20;
if a[i] < min then begin
min := a[i];
k := i;
end;
write(a[i]:4);
end;
if k <> 1 then swap(a[1], a[k]);
writeln;
//Вывод массива после замены
for var i := 1 to n do write(a[i]:4);
end.
Не нашли ответ?
Похожие вопросы