ССРРЛООЧЧНОО! 1. Заполнить одномерный массив, состоящий из 10 элементов,…

Два в одном: var a: array [1… 10] of integer; s, i, max: integer; begin max: =- 16; for i: =1 to 10 do begin a[i]: =random (50) — 15; writeln (a[i]); s: =s+a[i]; if a[i] > max then max: =a[i]; end; writeln ('Сумма элементов массива: ', s); writeln ('Максимальный элемент массива: ', max); end.