Ответы на вопрос:
Program gt; var i,max,min: integer; a: array[1..15]of integer; begin for i: =1 to 15 do read(a[i]); max: =a[1]; min: =a[1]; for i: =1 to 15 do begin if(a[i]> max)then max: =a[i]; if(a[i]< min)then min: =a[i]; end; writeln(min,' ',max); end.
Популярно: Информатика
-
NastyaBay271004.04.2021 00:06
-
AilaRait26.06.2020 22:27
-
07052003117.08.2021 10:43
-
Lonikqq22.09.2022 23:29
-
zyxra409.09.2021 22:59
-
mario16003.03.2021 02:29
-
Tilinika15.03.2021 09:49
-
Neznayka13321.02.2021 02:43
-
Kss14091618.11.2022 18:33
-
sestrichkitv18.05.2023 07:08