Даны последовательности а,в,с. в каждой из них 20 целых чисел. в той последовательности, где больше всего 0(считая что такая последовательность одна), все 0 заменить наибольшим значением данной последовательности (теория алгоритмов)

292

420

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

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

Диана2404

Информатика

4,7(5 оценок)

Const n=20; type s=array[1..n] of integer; procedure sgen(a,b: integer; var m: s); { заполняет массив m случайными числами из интервала [a; b] } var i: integer; begin randomize; for i: =1 to n do m[i]: =random(b-a+1)+a end; procedure swrite(sname: char; a: s); { выводит массив a с указанием имени sname в заголовке } var i: integer; begin writeln('последовательноcть ',sname); for i: =1 to n do write(a[i],' '); writeln end; function szeros(a: s): integer; { возвращает количество нулей в массиве a } var i,k: integer; begin k: =0; for i: =1 to n do if a[i]=0 then inc(k); szeros: =k end; var a,b,c,d,r: s; nr: char; za,zb,zc,zd,zr,i,mx: integer; begin sgen(-5,5,a); swrite('a',a); za: =szeros(a); r: =a; nr: ='a'; zr: =za; repeat sgen(-8,9,b); zb: =szeros(b); until zb< > zr; swrite('b',b); if zb> zr then begin r: =b; nr: ='b'; zr: =zb end; repeat sgen(-9,3,c); zc: =szeros(c); until zc< > zr; swrite('c',c); if zc> zr then begin r: =c; nr: ='c'; zr: =zc end; repeat sgen(-2,7,d); zd: =szeros(d); until zd< > zr; swrite('d',d); if zd> zr then begin r: =d; nr: ='d'; zr: =zd end; mx: =r[1]; for i: =2 to n do if r[i]> mx then mx: =r[i]; for i: =1 to n do if r[i]=0 then r[i]: =mx; writeln; swrite(nr,r) end. контрольное выполнение последовательноcть a -5 4 0 -1 2 -1 4 -5 3 3 1 5 -2 1 -1 -5 -1 -1 0 4 последовательноcть b -1 1 4 6 8 -1 -8 -8 5 4 -2 0 -2 8 3 -8 -6 -3 9 -7 последовательноcть c -4 -3 0 1 2 -4 -9 -9 0 0 -5 -4 -5 2 -1 -9 -8 -5 3 -8 последовательноcть d 1 3 5 5 7 2 -2 -2 5 5 1 2 1 6 4 -2 -1 1 7 -2 последовательноcть c -4 -3 3 1 2 -4 -9 -9 3 3 -5 -4 -5 2 -1 -9 -8 -5 3 -8

Sofiamarfiya

Информатика

4,8(91 оценок)

Сергей краснов виктор чернов андрей белов николай петров петр иванов

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.