WriteLn;. If (Vector[i] < 0) Then если очередной элемент вектора
i_otr:= 0;
i_pol:= 0;
For i:=1 To n Do
If (Vector[i] < 0) Then если очередной элемент вектора
Begin меньше нуля,
i_otr:= i; тозапоминаем его индекс
Break; и выходим из цикла
End;
For i:=1 To n Do
If (Vector[i] > 0) если очередной элемент вектора
Then i_pol:= i; больше нуля, тозапоминаем его индекс
If (i_otr = 0)
Then WriteLn(‘В векторе только положительные элементы’);
If (i_pol = 0)
Then WriteLn(‘В векторе только отрицательные элементы’);
If (i_otr > 0) And (i_pol > 0) Then
Begin
WriteLn;
WriteLn(‘Первый отрицательный элемент=’, Vector[i_otr]);
WriteLn(‘Его индекс=’, i_otr);
WriteLn(‘Последний положительный элемент=’, Vector[i_pol]);
WriteLn(‘Его индекс=’, i_pol);
k:= Vector[i_otr]; меняем их местами через
Vector[i_otr]:= Vector[i_pol]; третью переменную
Vector[i_pol]:= k;
WriteLn;
WriteLn(‘Полученный вектор:’);
For i:=1 To n Do
Write(Vector[i]:5);
WriteLn;
End;
ReadLn;
End.
10. Задать элементы целочисленного вектора vectorn случайными числами, лежащими в диапазоне от vect_min до vect_max. Вывести полученный вектор на экран. Сдвинуть элементы вектора вправо на один шаг, причем последний элемент должен встать на первое место.
Для решения этой задачи запомним последний элемент вектора на переменной posl, сдвинем все элементы на шаг вправо, начиная с предпоследнего, а затем значение переменной posl поместим в первый элемент массива:
Дата добавления: 2015-08-08; просмотров: 557;