Ответы на вопрос:
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.
Популярно: Информатика
-
mike43226.08.2020 14:04
-
Кет123526.07.2020 00:54
-
ladoshkinOff05.06.2022 00:59
-
ivanmoskvin17713.09.2022 03:43
-
Babay2807.01.2023 16:01
-
Настя2000о03.03.2023 21:55
-
RomanBilyan25.09.2021 14:02
-
vika1612200402.02.2020 12:41
-
Dhgfhdudv23.12.2021 18:35
-
ŤằтьЯℌa200520.05.2023 22:58