Паскаль, 9 класс
Написать программу, которая вводит массив из N вещественных чисел, а затем
меняет местами наибольший и наименьший элементы массива. Протестировать программу на трѐх произвольных тестах
Ответы на вопрос:
Pascal ABC
Код:
var
a: array [1..100] of real;
max, i, min, N: integer; temp: real;
begin
readln(N);
//заполнение массива и его вывод
for i := 1 to N do begin
a[i]:=random()*100;
write(a[i]:0:2, ' ');
end;
writeln;
//поиск максимума
min := 1; max := 1;
for i := 1 to N do begin
if a[min] > a[i] then min := i;
if a[max] < a[i] then max := i;
end;
//меняем местами
temp := a[max];
a[max] := a[min];
a[min] := temp;
//вывод массива
for i := 1 to N do
write(a[i]:0:2, ' ');
writeln;
end.
Тесты:
Ввод:
5
Вывод:
81.57 14.35 20.60 42.20 21.09
14.35 81.57 20.60 42.20 21.09
Ввод:
6
Вывод:
90.94 46.30 24.40 99.34 12.02 69.05
90.94 46.30 24.40 12.02 99.34 69.05
Ввод:
4
Вывод:
52.21 61.47 17.57 68.80
52.21 61.47 68.80 17.57
Популярно: Информатика
-
rafaeldali13131.12.2022 04:30
-
SmartPocan14.01.2023 04:03
-
rom20081sdf26.04.2020 08:59
-
9530872615.03.2021 14:32
-
Kuro11125.06.2021 08:42
-
ponia24.01.2020 11:50
-
zaikayes01.03.2020 13:35
-
igoreha307.10.2021 21:07
-
Ddoj17.01.2022 02:05
-
сауле4910.02.2022 06:40