Написать программу в Паскале: В массиве из N действительных чисел, введённых с клавиатуры, найти номер первого отрицательного элемента и выдать на экран этот элемент или сообщение о том, что в массиве отрицательных элементов нет.

program zz1;

var i, n, k:integer; / / задаем переменные целого типа

m:array [1 ... 1000] of integer;

begin

write (' введите заданное число ');

read (n);

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do

if m[i] < 0 / / проверяем условие, если очередной элемент массива отрицательный, то выводим ответ, запоминаем это событие и прерываем цикл

then begin write (' первый отрицательный элемент = ', m[i]); k:=1; break; end;

if k = 0 then write (' отрицательных элементов массива нет ');

end.