Решить в паскале . массив 10*10. случайные числа(10; 20) max сумма строки, max сумма в столбике. ? > max в строке или max в столбике

Const n=10; var a: array[1..n] of real; max,min: real; i: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin   a[i]: =random(21)-10;   write(a[i],' ');   end; writeln; max: =a[1]; min: =a[1]; for i: =2 to n do   begin   if a[i]> max then max: =a[i];   if a[i]< min then min: =a[i];   end; writeln('max = ',max,'   min = ',min); max: =max*max; min: =min*min; writeln('измененный массив: '); for i: =1 to n do   if a[i]> 0 then a[i]: =a[i]*min else a[i]: =a[i]*max; for i: =1 to n do write(a[i]: 5); writeln;   end. пример: исходный массив: 5 6 7 0 -6 5 -2 10 7 -2  max = 10   min = -6 измененный массив:   180   216   252     0 -600   180 -200   360   252 -200

Программа на паскале: const n=10; var a: array[1..n] of integer; max,min,imax,imin,s,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(51);   write(a[i],' ');   end; writeln; max: =a[1]; imax: =1; min: =a[1]; imin: =1; for i: =1 to n do   begin   if a[i]> max then begin max: =a[i]; imax: =i; end;   if a[i]< min then begin min: =a[i]; imin: =i; end;   end; writeln('max = ',max,'   min = ',min); s: =0; if imax< imin   then for i: =imax to imin do s: =s+a[i]   else for i: =imin to imax do s: =s+a[i]; writeln('s = ',s); end. пример: 38 15 4 5 9 15 24 40 12 9  max = 40   min = 4 s = 97