Написать программу нахождения суммы и среднего арифметического значения элементов целочисленного массива размерностью n. С одномерного массива. n равен количеству 5
*размерность - количество элементов массива

program z1;

const n=5;

var i,s: integer;

a:array[1..n] of integer;

begin

s := 0;

write('Массив : ');

for i:=1 to n do

begin

a[i]:=random(10);

write(a[i]:3);

s:=s+a[i]

end;

writeln;

writeln('Сумма значений элементов целочисленного массива ',s);

writeln('Среднее арифметическое значений элементов целочисленного массива ',s/n)

end.

Объяснение:

n - размерность массива

s - сумма значений элементов

В цикле с параметром:

1) задаём значение элемента массива

2) выводим элемент на экран

3) считаем сумму

Выводим на экран сумму

Выводим на экран среднее арифметическое (делим сумму на количество элементов массива)

// pascalabc.net 3.3 begin   var n: =readinteger('n = ');   var a: =readarrinteger('введите '+n+' чисел: ',n);   writeln('1. максимальное число, кратное 5 = ',             a.where(x-> x mod 5=0).max); writeln('2. сумма чисел, оканчивающихся на 4 = ',             a.where(x-> x mod 10=4).sum);   writeln('3. сумма чисел, кратных 7 = ',a.where(x-> x mod 7=0).sum);   var b: =arrrandom(n,10,90).println;   writeln('4. сумма всех чисел, кратных 6 и оканчивающихся на 4 = ',     b.where(x-> (x mod 6=0)and(x mod 10=); end. пример: n =  30 введите 30 чисел: 73 81 14 32 26 20 26 83 36 39 69 22 10 75 24 47 40 12 27 20 78 15 72 18 83 59 40 89 47 87 1. максимальное число, кратное 5 = 75 2. сумма чисел, оканчивающихся на 4 = 38 3. сумма чисел, кратных 7 = 14 84 57 88 50 41 85 28 15 47 48 46 69 41 56 89 19 54 74 33 58 83 66 40 35 89 80 12 86 46 14 4. сумма всех чисел, кратных 6 и оканчивающихся на 4 = 1384. сумма всех чисел, кратных 6 и оканчивающихся на 4 = 0