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

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

Переменные i, n, M1 имеют целочисленный тип данных;

А1 – используется для подсчета суммы всех элементов массива Х;

А4 - используется для подсчета сумм косинусов положительных элементов массива Х;

у - искомая по условию задачи переменная.

Переменные А1, А4, у имеют вещественный тип данных.

Алгоритм выполнения:

Для генерации элементов массива используем процедуру

Randomize;

n:=15;

i:=1;

Генерируем элементы массива Х с помощью функции random и выводим их на экран

while i<=n do

begin

writeln (i,'-й член массива',random:10);

x[i]:=random;

i:=i+1;

end ;

Цикл будет повторятся n раз (в данном случае 15), генерируя новый элемент массива Х и заполняя таким образом массив данных.

Задаем начальные вычисляемые значения и выводим их на экран.

A1:=0;

A4:=0;

y:=0;

M1:=0;

Для вычисления суммы всех элементов массива Х и занесения этой суммы в переменную А1 используем цикл

i:=1;

while i<=n do

begin

A1:=A1+X[i];