Контрольная работа: Основы алгоритмизации и программирования кр 1, вар1

begin

A1:=A1+X[i];

i:=i+1;

end;

{определение на положительность каждого элемента массива,

если элемент положителен, определяем его косинус и суммируем

значение записывается в переменную А4}

i:=1;

while i<=n do

begin

if X[i]>0

then A4:=A4+cos(X[i]);

i:=i+1;

end;

{определяем, меньше ли значения каждого элемента массива по сравнению

с суммой всех элементов массива. Те элементы, значения которых меньше суммы

всех элементов массива,суммируются количественно в переменную М1}

i:=1;

while i<=n do

begin

if X[i]<A1

then M1:=M1+1;

i:=i+1;

end;

{проверка условия задачи и определение искомого значения у

Вывод на экран результатов вычислений}

if A1<0 then

y:=(A4*2.8E-03+A1)/(M1*A1+3E-01)

else