Задания для самостоятельного решения

⇐ ПредыдущаяСтр 2 из 2

Begin

For i:=1 to N do A[i]:=i/(i+1); {Заполнение массива}

Write('Массив A: ');

For i:=1 to N do write(A[i]:8:2);{Вывод значений эл-тов массива на экран}

{Задание начальных значений для переменных Max и Nmax.}

Max:=A[1]; Nmax:=1;

{В цикле последовательно сравниваем все эл-ты массива со знач. переменной Max}

For i:=2 to N do

{Если значение какого-нибудь элемента массива будет больше текущего значения переменной Max, то заменяем значение переменной Max на значение этого элемента массива и сохраняем его номер в переменной Nmax}

If A[i]>Max then

Begin Max:=A[i]; Nmax:=i end;

WriteLn('Максимальный элемент=', Max:8:2, 'его номер=', Nmax);

end.

2) Проверить работу программы на компьютере.

Задания для самостоятельного решения

1. Находит число положительных, отрицательных и нулевых элементов массива.

2. Находит сумму всех элементов массива.

3. Проверяет есть ли в массиве два «соседних» элемента одного знака.

4. Переставляет элементы, расположенные между максимальным и минимальным элементами массива, в обратном порядке.

5. Вставляет после i-го элемента новый элемент, значение которого вводится с клавиатуры.

6. Удаляет j-ый элемент из массива.

7. Разбивает массив на два массива: в первом - отрицательные элементы из исходного массива, а во втором – положительные. Относительный порядок элементов сохранить.

⇐ Предыдущая 12