Задание 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;

WriteLn('Исходныймассив:');

For i:=1 to n Do{Вывод на экран исходного массива}

Write(a[i]:3:2,' ');

WriteLn;

WriteLn;

WriteLn('Номер первого отрицательного элемента:');{Вывод на экран номера отрицательного элемента}

Write(otr,' ');

ReadKey;{Задержка. Ожидание нажатия клавиши}

end.

 

Рис. 4. Примерный вид исходных данных и результата на экране по заданию 4