WriteLn;. Vector_max:= Vector[1]; пока максимальный элемент – первый
Vector_max:= Vector[1]; пока максимальный элемент – первый
i_max:= 1; элемент вектора
For i:=2 To n Do поиск начинаем со второго элемента!
If (Vector[i] > Vector_max) Then если очередной элемент больше
Begin текущего максимального,
Vector_max := Vector[i]; то максимальным элементом
i_max := i; становится очередной элемент вектора
End;
WriteLn(‘Vector_max=’, Vector_max);
WriteLn(‘i_max=’, i_max);
ReadLn;
End.
5. Задать элементы целочисленного вектора vectorn случайными числами, лежащими в диапазоне от vect_min до vect_max. Вывести полученный вектор на экран. Определить сумму S элементов вектора.
Перед началом суммирования сбрасываем сумму на нуль, потом в цикле будем добавлять в нее очередной элемент:
Program Primer_5;
Uses WinCrt;
Const n = 10; задание исходных данных в виде именованных констант
vect_min = -50;
vect_max = 50;
Var i, s : Integer;
Vector : Array [1..n] Of Integer;
Begin
ClrScr;
Randomize;
For i:=1 To n Do
Vector[i]:=Random(vect_max – vect_min + 1) + vect_min;
For i:=1 To n Do
Write(Vector[i]:5);
WriteLn;
S := 0; начальная сумма равна нулю!
For i:=1 To n Do добавляем в сумму очередной
s := s + Vector[i]; элемент вектора
WriteLn(‘s=’, s);
ReadLn;
End.
6. Задать элементы целочисленного вектора vectorn случайными числами, лежащими в диапазоне от vect_min до vect_max. Вывести полученный вектор на экран. Перевернуть вектор: поменять местами первый и последний элементы, второй и предпоследний, и так далее (поплавок):
Дата добавления: 2015-08-08; просмотров: 501;