Есть ответ 👍

Как выразить словами блок с ветвлением

297
401
Посмотреть ответы 2

Ответы на вопрос:


напиши пока челу с точкой


// 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 раз(а)

Популярно: Информатика