PolinaCartonova

20.06.2021 15:49

Информатика

Есть ответ 👍

Паскаль, 9 класс
Написать программу, которая вводит массив из N вещественных чисел, а затем
меняет местами наибольший и наименьший элементы массива. Протестировать программу на трѐх произвольных тестах

196

255

Посмотреть ответы 2

Ответы на вопрос:

Asherok

Информатика

4,4(49 оценок)

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.

Тесты:

Ввод:

Вывод:

81.57 14.35 20.60 42.20 21.09

14.35 81.57 20.60 42.20 21.09

Ввод:

Вывод:

90.94 46.30 24.40 99.34 12.02 69.05

90.94 46.30 24.40 12.02 99.34 69.05

Ввод:

Вывод:

52.21 61.47 17.57 68.80

52.21 61.47 68.80 17.57

njjk1

Информатика

4,6(59 оценок)

кокой еще 35 только 18 даеш

Объяснение:

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.