Программа, паскаль

[Ri4ard_Zlo]

Есть ли в данном массиве два соседних положительных элемента? Найти номера первой (последней) пары.

[Hacker19_90]

наработки есть?
если нет, прошу ко мне. ася в профиле

[Hacker19_90]

В РАЗРАБОТКЕ

[Hacker19_90]

РЕШЕНО

program work1;
uses crt;
const m = 10;
var
    mas: array[1..m] of real;
    i: integer;
    isFound: boolean;
    pos: integer;
begin
    clrscr;
    isFound := false;
    pos := 0;
    Writeln ('Введите ', m, ' элементов через пробел:');
    for i := 1 to m do
        Read (mas[i]);
    Readln;
    for i := 1 to (m-1) do
        if (mas[i] > 0) and (mas[i+1] > 0) then
        begin
            isFound := true;
            pos := i;
        end;
    if isFound = true then
    begin
        Writeln ('Найдены следующие элементы: ', mas[pos]:4:3, ' ', mas[pos+1]:4:3);
        Writeln ('На позициях: ', pos, ' ', pos+1);

    end
    else
        Writeln ('Соседних положительных элементов не найдено!');
    ReadKey;
end.