Составить программу нахождения номера максимального элемента одномерного массива Х, состоящего из 5 элементов, введенных с клавиатуры.
Решение задач на максимум обычно подчиняется следующему алгоритму:
1. За максимум принимается первый элемент массива
2. Берется второй элемент и сравнивается с максимумом, если он оказывается больше, то за максимум берется второй элемент, в противном случае максимум не меняется
3. Берется третий элемент и процедура повторяется, пока не будет исследован последний элемент массива
Задачи на минимум решаются аналогично, только за минимум принимается меньший элемент.
Program massiv_4;
Const N=5;
var i, maxN: integer;
maxX: Real;
X: Array [1..N] of Real;
begin
For i:= 1 To N Do
begin
Writeln ('Введите значение ', i, ' –го элемента массива');
Read (X[i])
end;
maxN:=1; {В качестве начального номера берём 1}
maxX:=X[1]; {В качестве максимального элемента берем Х1}
For i:= 1 To N Do
if X[i]>maxX Then
Begin maxX:=X[i];
maxN:=i
End;
Writeln ('Максимальный элемент ', maxX:6:2, ' имеет номер ', maxN);
end.
Задание 5. Нахождение суммы элементов массива
|
|
Составить программу нахождения суммы положительных элементов одномерного массива С.
Program massiv_5;
Const N=10; {Ввод количества элементов массива}
var i: integer;
C: Array [1..N] of Real;
Begin
Writeln('Введите элементы массива');
For i:= 1 To N Do Read(C[i]); {Ввод элементов массива С}
S:=0;
For i:= 1 To N Do
If C[i]>0 Then S:=S+C[i]; {Расчет суммы положительных элементов массива}
Writeln ('Cумма положительных элементов массива =', S:6:2);
End.
Задание 6. Нахождение количества элементов массива
Составить программу нахождения количества элементов одномерного массива Х, совпадающих с первым элементом массива.
При решении задач подобного типа используется дополнительная переменная целого типа, которая является счетчиком элементов массива и которой сначала присваивается значение 0.
Program massiv_6;
Const N=10; {Ввод количества элементов массива}
var i, kol: integer;
X: Array [1..N] of Real;
Begin
Writeln('Введите элементы массива');
For i:= 1 To N Do Read(X[i]); {Ввод элементов массива X}
kol:=0; {Обнуление счетчика kol}
For i:= 1 To N Do
If X[i] = X[1] Then kol:=kol+1;
Writeln ('Количество элементов массива, совпадающих с первым равно', kol:4);
End.