Ответы на вопрос:
// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin var a: =seqrandom(readinteger('n=',1000).select(t-> t/100).toarray; a.println; a.transform(t-> t.between(-4.7,-0.1)? t: -t); a.println end. пример n= 10 6.6 -4.4 -2.21 -4.95 -7.26 1.38 -5.8 0.77 -4.41 3.31 -6.6 -4.4 -2.21 4.95 7.26 -1.38 5.8 -0.77 -4.41 -3.31 begin var n: =readinteger('n='); var (max,k,tmp): =(integer.minvalue,0,0); loop n do begin read(tmp); if tmp> max then (max,k): =(tmp,1) else if tmp=max then k+=1 end; writeln('максимум ',max,' встречен ',k,' раз(а)') end. пример n= 8 -6 -9 12 7 -5 12 10 -3 максимум 12 встречен 2 раз(а)
Популярно: Информатика
-
licialime0023.04.2023 04:54
-
AbashkinaEvgenia9822.07.2020 12:58
-
ира880011.09.2021 10:06
-
genri567329.12.2022 18:24
-
tasss112.08.2021 08:58
-
dzubaliz07.08.2020 22:18
-
ksushaybff13.05.2023 16:39
-
Софамимими17.03.2023 03:30
-
firstoneking130.06.2021 14:42
-
ilonasusak7729.05.2022 18:44