В результате работы программы на дисплей будет выведено соответствующее сообщение: см. рис. 3.

Рис. 3. Вид выполнения программы по заданию 3

Задание 4. Алгоритмы обработки массивов

Задание. В одномерном массиве, содержащем положительные, отрицательные элементы и нули, найти первый отрицательный элемент. Вывести на экран исходный массив и порядковый номер первого отрицательного элемента.

Найти минимальный элемент одномерного массива и поменять местами пятый элемент с минимальным. Вывести на экран исходный и результирующий массивы.

Выполнение

Алгоритм решения задачи состоит из следующих шагов:

1. ввести исходное количество элементов массива;

2. ввести элементы массива по одному в строке;

3. найти первый отрицательный элемент;

4. последовательно вывести на экран исходный и номер первого отрицательного элемента.

Программа для указанного варианта имеет следующий вид:

Program Task4;

Uses

Crt;{Подключаеммодульграфики}

Var

n,i,j, otr :integer;{переменные}

m:real;{переменная для хранения минимального значения}

a:Array [1..20] of real;{одномерный массив, вещественных чисел}

Begin

ClrScr;{Очистка экрна}

Write('Количество элементов исходного массива? ');

ReadLn(n);{Ввод количества элементов массива}

For i:=1 to n Do{Цикл для ввода элементов массива}

begin

Write('Введите ',i,' элемент массива: ');

ReadLn(a[i]);

end;

For i:=1 to n Do{Циклдляпроверкиминимальныхэлементов}

If a[i]<0 then otr:=i;