Question

Дан массив целых чисел. Написать программу,которая с помощью функции вычисляет сумму и среднее арифметическое положительных элементов одномерного массива ( N<=50)
ЯЗЫК - ПАСКАЛЬ

Помогите пожалуйста!

Answer 1

Ответ:

begin

 var x:=ReadInteger('Введите размер массива: ');

 var a:=ArrRandomInteger(x,1,50);

 a.Println;

 Println('Сумма всех элементов массива: ', a.Sum);

 Println('Среднее арифметическое: ', a.Average);

end.