Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 40 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

39
end;
i:=i_max+1;
while i<=n do {цикл для проверки элементов на знак }
begin
if a[i]<0 then {если элемент отрицательный, то}
begin
for j:=i to n-1 do {цикл удаления i-го элемента}
a[j]:=a[j+1];
n:=n-1; {уменьшение длины массива}
end
else
i:=i+1; {иначе переход к следующему элементу}
end;
writeln('Результат обработки:');
for i:=1 to n do
write(a[i]:4);
readln;
{$R-} {Выключение контроля значений индексов}
end.
Варианты заданий
1. Скорректировать массив A=(a
1
, а
2
, ..., а
n
), переписав в начало массива
группу, содержащую наибольшее число подряд идущих положительных
элементов. Элементы массива вводить с клавиатуры.
2.
В массиве A=(a
1
, а
2
, ..., а
n
) все элементы, равные нулю, поставить сразу по-
сле максимального элемента данного массива. Элементы массива вводить
с клавиатуры.
3.
В массиве A=(a
1
, а
2
, ..., а
n
) все отрицательные элементы отправить в
«хвост» массива.
4.
В массиве A=(a
1
, а
2
, ..., а
n
) удалить последнюю группу положительных эле-
ментов. Группой называется подряд идущие элементы одного знака, число
которых больше или равно 2.
5.
В массиве A=(a
1
, а
2
, ..., а
n
) все положительные элементы, стоящие перед
минимальным положительным элементом, переслать в «хвост» массива.
6.
В массиве A=(a
1
, а
2
, ..., а
n
) удалить все подряд идущие отрицательные эле-
менты, идущие вслед за минимальным элементом массива.
7.
В массиве A=(a
1
, а
2
, ..., а
n
) удалить все отрицательные элементы, стоящие
перед минимальным элементом массива.
8.
В массиве A=(a
1
, а
2
, ..., а
n
) удалить все элементы, меньшие, чем элемент
массива, расположенный слева от максимального.

Страницы