Срочно! Помогите пожалуйста! 1) Ввести массив случайных чисел и найти сумму этих…

Если это одна задачка, то вот: Const N=10; var i,j,k: integer; A: array [1… N] of integer; Begin k: =0; j: =0; randomize; for i: =1 to N do A[i]: =random (100); for i: =1 to N do write (A[i], '); for i: =1 to N do j: =A[i]+j; writeln ('сумма: ', j); for i: =1 to N do if A[i] > k then k: =A[i]; writeln ('Наибольший элемент массива: ', k); End. Если 2, то просто разбей. Написано в Pascal.ABC.NET