Ответы на вопрос:
Program chik; var a: array[1..1000]of integer; max,p,i: integer; begin for i: =1 to 10 do begin read(a[i]); end; max: =1; p: =1; for i: =2 to 10 do begin if(a[i]> max)then begin max: =a[i]; p: =i; end; end; write(max,' ',p); end.
Популярно: Информатика
-
нина1278926.07.2021 15:02
-
LegendYT06.10.2021 08:34
-
EvilMorty12.06.2020 16:44
-
Dag18y5557hvvhi18.03.2022 15:43
-
Mary2304Cat24.08.2022 18:26
-
set1716.10.2020 09:15
-
Largo200021.11.2022 06:29
-
TigrNavigator32209.09.2022 03:47
-
PRPPAPIG200422.04.2022 21:13
-
Peregudovapolina02.02.2021 10:42