Нахождение номера отрицательного элемента в массиве.

Напишем программу, которая определяет номер отрицательного элемента в массиве.

 Нахождение номера отрицательного элемента в массиве.

program massiv9;
uses crt;
const N=10;
type x=array [1..N] of integer;
var a:x;
i:integer;
k:integer;
begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:= -10+random (91);
write (A[i]:4)
end;
writeln;
k:=0;
for i:=1 to N do
if a[i] <0 then
begin
k:=I
end;
if k>0 then
writeln (‘Индекс отрицательного элемента = ’,k)
else
writeln (‘В массиве нет отрицательных элементов');
readln
end.

В строке №7 мы записали переменную для хранения индекса отрицательного элемента.

В строке №19 мы задаем условие, при котором перебираются все 10 сгенерированных чисел и среди них ищется отрицательный, и если отрицательное число находится, то его индекс (номер) заносится в переменную K (строка №21).

В строке №23 записывается условие: если переменная «K» больше 0 (т.е. есть отрицательные элементы), то на экран выводится сообщение (строка №24). В обратном случае (если нет отрицательных элементов, и «K» так и останется равным 0), выведется сообщение (строка №26)

Из всех сгенерированных чисел у нас 2 числа отрицательные. Так как цикл начинался с первого элемента и закончился на 10-ом элементе, у нас выводится номер последнего найденного отрицательного числа (т.к. именно этот номер последним был записан в переменную «K»). Если бы нам нужно было найти номер первого отрицательного числа, то мы бы заменили строку №16 (for i:=1 to N do) на такую строку: for k:=N downto 1 do (т.е. перебирали бы элементы с конца).

Предыдущая статья : Определение наличия в массиве отрицательных чисел.

Оглавление : Уроки Паскаль.

Следующая статья : Двумерные массивы в Pascal.