Ответы на вопрос:
Const n=5; var a: array [1..n] of real; d, r: real; i, j, k: integer; begin for i: =1 to n do begin readln(a[i]); if a[i]> d then begin r: =d; d: =a[i]; end; end; writeln("самые высокие гвардейцы имеют рост ",r," и ", d); end.
Популярно: Информатика
-
Fracian14.07.2020 15:27
-
mathewkichunov23.02.2022 11:48
-
avf5515.12.2022 03:14
-
ваня134014.10.2022 10:39
-
damirnikiforov26.11.2020 07:19
-
Maxbys12.11.2022 11:17
-
elemesayan18.10.2020 15:53
-
Bogdasha0610201517.03.2023 20:16
-
Maria12345678910120.08.2020 22:29
-
спасибо6001.09.2020 18:38