Нахождение суммы, произведения, среднего значения, экстремумов элементов массива

Дата добавления: 2015-08-14; просмотров: 1061; Нарушение авторских прав

Программу для решения задач, данные в которых организованы в виде массива, как правило, можно «собирать» как домик из кубиков. Но для этого необходимо знать решение ключевых задач, таких как нахождение суммы, произведения, среднего арифметического значения элементов массива, максимального и минимального элементов, количества элементов с заданными свойствами.

Фрагменты решения названных задач для одномерных массивов приведены ниже в таблице.

Нахождение суммы элементов массива
	S:=0; For i:=1 to n do S:=s+x[i];
Нахождение произведения элементов массива
	P:=1; For i:=1 to n do P:=P*x[i];
Нахождение среднего арифметического элементов массива
	S:=0; For i:=1 to n do S:=s+x[i]; Sr:=s/n;
Нахождение максимального элемента массива и его местоположение в массиве
	max:=x[1]; nommax:=1; For i:=2 to n do If max<=x[i] then begin max:=x[i]; nommax:=i end;
Нахождение минимального элемента массива и его местоположение в массиве
	min:=x[1]; nommin:=1; For i:=2 to n do If min>=x[i] then begin min:=x[i]; nommin:=i end;
Нахождение количества элемента массива с заданными свойствами
	K:=0; For i:=1 to n do If x[i]{характеристика элемента} then K:=k+1;
Замена элементов массива с заданными свойствами
	For i:=1 to n do If условие then X[i]:=…;

Пример решения задачи с использованием одномерных массивов

Класс участвовал в соревнованиях по бегу на короткие дистанции. Данные каждого участника заносились в линейную таблицу. Помогите судье найти суммарный результат класса и номера самого лучшего и самого худшего бегунов класса.

Program primer1;

Var k,I:integer;

R:array [1..25] of real;

S:real;

Max, min: real;

Nommax, nommin: integer;

Begin

Writeln (‘ww. kol-vo k=’);

Readln (k);

e [3201]" strokeweight=".5pt">

For i:=1 to k do

Begin

Write (‘ww. R[‘,i,’]=’);

Readln (R[i]);

End;

S:=0;

For i:=1 to n do

S:=s+R[i];

Writeln (‘s=’,s:9:2);

max:=R[1]; nommax:=1;

For i:=2 to n do

If max<=R[i] then

Begin

max:=R[i];

nommax:=i

end;

Writeln (‘nommax=’, nommax);

Writeln (‘max=’, max:9:2);

min:=R[1]; nommin:=1;

For i:=2 to n do

If min>=R[i] then

Begin

min:=R[i];

nommin:=i

end;

Writeln (‘nommin=’, nommin);

Writeln (‘min=’, min:9:2);

<== предыдущая лекция | следующая лекция ==>

Основные определения и понятия | Список задач для решения