Ответы на вопрос:
Program min5 var array a[1..5] of real var i, k : integer var min : real begin for i : = 1 to 5 do readln (a[i]); // вводим массив k : = 1; min : = a[1]; // начальные значения мин. эл-та и его номера for i : = 2 to 5 do begin if a[i] < min then // если элемент меньше минимального begin min : = a[i]; // устанавливаем новый минимальный элемент k : = i; // и запоминаем его номер end; end; writeln ('a[', k, '] = ' min'); // выводим минимум и его номер end.
Популярно: Информатика
-
Loler57ùö22.09.2022 15:07
-
Добрыйдемон1301.09.2020 22:17
-
nikj1232020.12.2021 20:28
-
sadzim20.06.2020 18:52
-
samudoma200618.11.2020 04:56
-
Snyezha12.11.2020 00:24
-
усман1420.01.2020 05:17
-
мда2808.01.2020 19:07
-
stepanyakimov213.04.2020 05:38
-
mariooouvanov22.03.2020 03:19