1) Удвоить все элементы массива. 2) Найти сумму элементов двух массивов одинаковой…

vara: array[1… 10,1… 10] of integer; b: array[1… 10,1… 10] of integer; sum: array[1… 10,1… 10] of integer; pol,otr,max,min: real; i,j,indexi,indexj: integer; beginmin: =0; max: =0; randomize; for j: =1 to 10 dobegin for i: =1 to 10 dobeginrandomize; a[i,j]: =random (51); randomize; b[i,j]: =random (51); a[i,j]: =a[i,j]*2; writeln (a[i,j]); a[i,j]: =a[i,j]/2; end; end; for j: =1 to 10 dobeginfor i: =1 to 10 dobegina[i,j]: =a[i,j]+b[i,j]; writeln (a[i,j]); a[i,j]: =a[i,j]-b[i,j]; end; end; for j: =1 to 10 dobeginfor i: =1 to 10 dobeginif a[i,j]0) and (a[i,j]>max) thenmax: =a[i,j]; end; end; writeln (max); max: =0; for j: =1 to 10 dobegin for i: =1 to 10 dobegin if (a[i,j]<0) and (a[i,j]>max) then max: =a[i,j]; end; end; writeln (max); end. Программа выполняет сразу все 7 пунктов. Значения задаются сами. На выходе с каждой строки Вы получите каждый пункт задания.