Const n = 50; k= 50; var a: array[1..n,1..k] of integer; i,j,mn,mk,z,sum,v: integer; beginwrite('введите n'); readln(mn); write('введите k'); readln(mk); for i: = 1 to mn dobeginfor j: = 1 to mk dobegina[i,j]: = random(100)-50; write(a[i,j]: 5)end; writeln; end; writeln; writeln('суммы элементов массива в стобце'); for i: = 1 to mn dobeginfor j: = 1 to mk dobeginfor z: = 1 to mn dobeginif z < > i thenbeginsum: = sum + a[z,j]; end; end; if a[i,j] > sum then v: =v +1; write(sum: 5); sum: =0; end; writeln; end; write('число особых элементов массива = ',v); end.
artemiusst
19.03.2022
Const n=7; day: array[1..7] of string[15] = ('понедельник','вторник','среда','четверг','пятница','суббота','воскресенье'); var t: array[1..7] of integer; d: array[1..7] of real; i,k: byte; s: integer; sr: real; begin s: =0; randomize; writeln('температура в течение недели: '); for i: =1 to n do begin t[i]: =random(50)-25; s: =s+t[i]; write(t[i]: 4); end; writeln; sr: =s/n; writeln('средняя температура: ',sr: 3: 2); k: =0; writeln('температуры ниже средней в дни : '); for i: =1 to n do if t[i]< sr then begin write(day[i]: 15); k: =k+1; end; writeln; writeln('всего ',k,' дня(ей)'); writeln('массив отклонений: '); for i: =1 to n do begin d[i]: =t[i]-sr; write(d[i]: 8: 3); end; end.