Ответы на вопрос:
Var a: array[1..3]of integer; i, max, t, k: integer; begin writeln('введите числа'); for i: =1 to 3 do read(a[i]); for i: =1 to 3 do write(a[i]); writeln(); max: =a[1]; k: =0; for i: =1 to 3 do begin if (a[i]> max) then begin max: =a[i] t: =max; end; if (a[i]=t) then k: =k+1; end; writeln('количество= ',k); end.
Популярно: Информатика
-
37к617.06.2020 23:15
-
Polinka8020.01.2021 12:04
-
Infasotka4107.06.2021 19:03
-
brilovainna15.10.2021 17:56
-
twicгр6619.10.2021 17:42
-
mxitaryan7715.02.2020 02:11
-
06080452813.06.2020 17:28
-
Ника11111111112222201.02.2020 03:35
-
qwerty112705.01.2020 10:10
-
РікаРо06.02.2020 07:31