Дан числовой массив а состоящий из n элементов если отношение числа положительных элементов к числу отрицательных более 2, то все отрицательные элементы этого массива замените на 1, а положительные умножьте на максимальный элемент

268

318

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

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

alyonaapresyan

Информатика

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

Const n=15; var i,np,nn,amax: integer; a: array[1..n] of integer; begin randomize; write('исходный массив: '); np: =0; nn: =0; for i: =1 to n do begin a[i]: =random(51)-15; write(a[i],' '); if a[i]> 0 then inc(np) else if a[i]< 0 then inc(nn); end; writeln; if np/nn> 2 then begin amax: =a[i]; for i: =2 to n do if a[i]> amax then amax: =a[i]; write('выходной массив: '); for i: =1 to n do begin if a[i]< 0 then a[i]: =1 else if a[i]> 0 then a[i]: =a[i]*amax; write(a[i],' ') end; writeln end else writeln('в массив изменения не вносятся') end. пример работы программы исходный массив: 28 8 21 32 0 26 30 11 35 21 14 6 0 -4 -8 выходной массив: 980 280 735 1120 0 910 1050 385 1225 735 490 210 0 1 1

1Кat3

Информатика

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

Var m: array[1..100] of integer; i,a,n: integer; begin write('г‚гўгґг¤гёгігґ г°г*г§г¬гґг°г*г®г±гігј г¬г*г±г±гёгўг*: '); readln(n); write('г‚гўгґг¤гёгігґ г·гёг±г«г® гђ: '); readln(a); writeln('г‚гўгґг¤гёгігґ г¬г*г±г±гёгў: '); for i: =1 to n do readln(m[i]); writeln('гњг*г±г±гёгў: '); for i: =1 to n do m[i]: =m[i]-a; for i: =1 to n do write(m[i],' '); end.