Помогите написать программы) 1. Дан массив 10 на 10, подсчитать сумму элементов…

Паскаль 1) Program abc; Uses crt; var S: integer; a: array [1… 10,1… 10]; begin For i: =1 to 10 doFor j: =1 to 10 doread (a[i,j]); writeln; beginS: =0; For i: =1 to 10 doFor j: =1 to 10 doif i=j then S: =S+a[i,j]; write ('Сумма равна',S) end. 2) Program abc; Uses crt; var min: integer; a: array [1… 10,1… 10]; begin For i: =1 to 10 doFor j: =1 to 10 doread (a[i,j]); writeln; min: =a[1,1]; For i: =1 to 10 doFor j: =1 to 10 doif a[i,j]