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

121

165

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

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

Evastupid

Информатика

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

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