ЗАДАНИЕ №1

Дан массив, состоящий из N элементов. Составить программу, которая вычислит среднее арифметическое тех элементов массива, значения которых не падает в интервал [a, b].

Решение:

1. Определим необходимые формулы:

SA=S/K, где SA – среднее арифметическое

S – сумма тех элементов массива, значения которых попадают в промежуток [a, b].

 

, где х_i – элементы массива Х. К – количество элементов, попадающих в промежуток [a, b].

1. Составим графическую схему алгоритма.

 

 

 

Нет

 

S=S+Xi K=K+1

Да

 

 

i=i+1

Да Нет

 

 

Да Нет

 

 

SA=S/K

SA=0

 

 

1. Составим таблицу соответствия переменных.

 

В исходной задаче	N	X	S	K	SA	i
В программе	N	X	S	K	SA	i
Тип	int	array (real)	real	int	real	int

 

1. В соответствии с пунктами 2 и 3 составим программу.

Program SRARIFM;

Var

N, K, I: integer;

S, SA: real;

x: array [1..50] of real;

begin

write (‘Введите границы интервала [a, b] ’);

readln (a, b);

write (‘Введите кол-во элементов в массиве ’);

readln (N);

{Организация ввода значений элементов массива Х}

for i: =1 to N do

begin

write (‘Введите х [‘, i, ‘] ‘);

readln (x[i])

end;

{Расчетная часть программы}

S: =0;

K: =0;

For i: =1 to N do

If (x[i]> =a) and (x[i]< =b)

then

begin

S: =s+x[i];

K”=k+1

End;

if k=0

then

SA: =0

Else SA: =S/K;

{Вывод результата подсчета}

writeln (‘Средне арифметическое элементов, принадлежащих промежутку [‘, a: 7: 3, ‘, ’, b: 7: 3, ‘]=’, SA: 7: 3);

readln

end.

ЗАДАНИЕ №2.

В соответствии со своим вариантом составить графическую схему алгоритма и написать программу. Программа должна осуществлять ввод и печать исходного одномерного массива; выполнять в соответствии с условиями действия и печатать результаты.

 

Вариант	Задание
	Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3.
	Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и больших заданного С.
	Подсчитать произведение всех неизвестных чисел, стоящих на местах, кратных 4, и количество чисел, небольших заданного А.
	Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.
	Подсчитать количество чисел, не принадлежащих промежутку (Х, У], и сумму отрицательных чисел, стоящих на четных местах.
	Подсчитать сумму чисел, стоящих на местах, кратных 3, и неравных заданному F, подсчитать также количество неотрицательных чисел.
	Найти среднее арифметическое отрицательных чисел и подсчитать количество чисел, по величине больших А и стоящих на четных местах.
	Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и подсчитать количество чисел, меньших заданного В.
	Найти среднее арифметическое чисел, принадлежащих промежутку [А, В) и количество положительных чисел, стоящих на местах, кратных 4.
	Найти среднее арифметическое чисел, неравных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах.
	Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел, небольших заданного F.
	Найти среднее арифметическое чисел, непопадающих в промежуток [A, B], и подсчитать количество положительных чисел, стоящих на местах, кратных 3.
	Найти среднее арифметическое ненулевых чисел и подсчитать количество чисел, по величине небольших А и стоящих на четных местах.
	Вычислить произведение чисел, принадлежащих промежутку (A, B] и подсчитать количество отрицательных чисел, стоящих на местах, кратных 3.
	Найти среднее арифметическое чисел, стоящих на нечетных местах и подсчитать количество чисел, меньших заданного С.
	Вычислить сумму квадратов чисел, не принадлежащих промежутку [Х, У), подсчитать количество отрицательных чисел, стоящих на четных местах.
	Вычислить сумму квадратов чисел, принадлежащих промежутку (А, В) и стоящих на местах, кратных 4; подсчитать количество нулей во всем массиве.
	Вычислить произведение чисел, неравных заданному числу Z, и подсчитать количество чисел, стоящих на нечетных местах и принадлежащих промежутку (А, В].
	Вычислить сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел, равных заданному Т.
	Вычислить сумму квадратов чисел, больших заданного С; подсчитать количество неположительных чисел, стоящих на местах, кратных 4.
	Вычислить среднее арифметическое чисел, небольших А и стоящих на четных местах; подсчитать количество ненулевых чисел.
	Вычислить произведение положительных чисел и подсчитать количество чисел, принадлежащих промежутку (А, В) и стоящих на нечетных местах.
	Вычислить сумму квадратов отрицательных чисел, стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В).
	Вычислить сумму чисел, принадлежащих промежутку [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4.
	Вычислить сумму квадратов чисел, принадлежащих промежутку (A, B] и стоящих на нечетных местах; подсчитать количество чисел, не меньших заданного С.
	Вычислить произведение чисел, больше заданного D и стоящих на местах, кратных 3; подсчитать также количество чисел, неравных заданному Х.
	Подсчитать количество ненулевых чисел, стоящих на нечетных местах, и вычислить среднее арифметическое чисел, меньших заданного Т.
	Вычислить сумму квадратов чисел, не меньших заданного U и стоящих на местах, кратных 4; подсчитать также количество чисел, равных W.
	Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C, D).
	Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку [M, K].