1.Заполнить массив А(10) по правилу: 1-й, 3-й, 7-й элементы вычисляются по

формуле a[i]=2*i+10, остальные a[i]= (i-8)*3.

Найти среднее арифметическое четных элементов.

2.Заполнить массив А(10) по правилу:

элементы с номерами кратными трем вычисляются по формуле a[i]=1-i,

остальные a[i]= (i+1)2. Найти сумму всех элементов и заменить все

отрицательные значения на значение найденной суммы.

3.Задать массив А(15) по правилу: первые семь элементов А[i]= 4,1i + i2,

остальные А[i]=i - 5,7.

Найти произведение элементов с номерами с 3 по 5

Program massiv;

Const n=100;

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

  i,s:integer;

Begin

s:=0;

For i:=1 to n do

Begin

 a[i]:=i*i;

 Write(a[i]:6);

 s:=s+a[i];

end;

WriteLn;

Write('Сумма=',s);

end.