Ответы на вопрос:
Это к первому вопросу: program n1; uses crt; var a: array[1..10] of integer; i,k,max,m: integer; begin for i: =1 to 10 do begin a[i]: =random(11)+10; write(a[i]: 4); end; writeln; max: =a[1]; for i: =2 to 10 do if (max< a[i]) then max: =a[i]; k: =0; for i: =1 to 10 do if (max=a[i]) then k: =k+1; writeln('kol-vo elementov ravnih max lementu massiva: ',k); end.второй вопрос просто-напросто не понял.
Популярно: Информатика
-
elizavetanosova200011.06.2023 20:33
-
Hohlond30.05.2022 13:22
-
mango3415.02.2023 14:55
-
Дллллллллллл06.05.2022 19:49
-
Polina6891109.04.2022 08:34
-
alese4kas94p0cen020.07.2021 12:20
-
mariyakohtuk23.02.2023 22:52
-
Vartego23.08.2021 14:45
-
Nier13.02.2020 10:39
-
Katyha02827281911.06.2020 12:23