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

end ;

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

Если элемент положителен, определяем его косинус и суммируем его значение в переменную А4

i:=1;

while i<=n do

begin

if X[i]>0

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

i:=i+1;

end ;

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

с суммой всех элементов массива A1. Те элементы, значения которых меньше A1, суммируются количественно в переменную М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

y:=A4*1.35E-04;

Листинг программы:

program kr1var1;

uses crt;

var

{задаем переменные и их тип}