Решить в паскале заполнить двумерный массив n x n случайными числами из интервала [-5; 5] и сменить знак максимального элемента в каждой строке на противоположный .

Const n = 10; var i, b: integer;     a: array [0..n] of integer; begin       for i : = 0 to n - 1 do       begin           a[i] : = random(10) - 5;           if (a[b] > a[i]) then b : = i;       end;       a[b] : = a[b] * -1;       for i : = 0 to n - 1 do writeln('[', i, '] => ', a[i]); end.

Матричный принтер содержит печатающую головку с 9 или 24 иголками. иголки нажимают на ленту с красящим слоем и оставляют точки на бумаге. в струйном принтере печатающая головка выплевывает краску из сопел на бумагу под действием давления. а в лазерном принтере есть специальный барабан, который лазером же намагничивается в определенных местах. потом он собирает графитную  краску на намагниченные места и прокатывается по листу бумаги, перенося ее. у лазерного принтера, как видно, сухой принцип работы. 

Uses crt; var e: array[1..3,1..7] of integer; s,max,n,m: integer; index,sum: integer; procedure max_el; begin max: =e[1,1]; sum: =0; index: =0; for n: =1 to 3 do begin for m: =1 to 7 do begin if e[n,m]> max then begin max: =e[n,m]; index: =m; end; end; end; for n: =1 to 3 do begin if e[n,index]< 0 then begin sum: =sum+e[n,index]; end; end; writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum); end; begin clrscr; writeln('elementy massiva'); writeln; randomize; for n: =1 to 3 do begin for m: =1 to 7 do begin e[n,m]: =random(100) -50; write('',e[n,m],' '); end; writeln; end; writeln; writeln; max_el; readkey; end .