Можете написать код с комментариями?

Автор вопроса: Анастасия Бражко

Написать процедуру вывода индексов отрицательных элементов одномерного массива. Применить процедуру для массивов A[1..6], В[1..6],С[1..6].

Источник

Ответы (1 шт):

Автор решения: karvetskiy


var A, B, C : array [1..6] of integer;

procedure IndexOfNegativeNumber (a:array of integer);
var i: integer;
begin
    for i:=0 to High(a) do
        if a[i]<0 then
            begin
                writeln(i);
                break
            end
end;

begin
IndexOfNegativeNumber(A);
IndexOfNegativeNumber(B);
IndexOfNegativeNumber(C);
end.

→ Ссылка