Ответы на вопрос:
Var a: array [0..14] of integer; min, max, i: integer; begin for i : = 0 to 14 do readln(a[i]); for i : = 0 to 14 do begin if (a[min] > a[i]) then min : = i; if (a[max] < a[i]) then max : = i; end; writeln('min: a[', min, ']', #13, 'max: a[', max, ']'); end.
Популярно: Информатика
-
artem094112.12.2022 20:42
-
Даниил55577722.03.2021 22:39
-
draufzoda07.07.2022 18:01
-
dyumaevanastasy18.08.2021 05:45
-
ban2005040812.01.2020 20:53
-
ismail0001.04.2022 16:34
-
basik201720.09.2020 19:00
-
kotik25923.12.2021 20:36
-
diasj5kz12.04.2023 15:43
-
ifj2ifvjw18.03.2020 22:13