2. Написать программу…

Varmas: array[1… 100] of real; i: integer; y: string; Begin write ('Вводите элементы массива, когда закончите введите Y: '); readln (y); for i: =1 to 100 do beginif (y='Y') then i: =101else beginmas[i]: =strTofloat (y); readln (y); end; End; for i: =1 to 100 do beginif (mas[i]<0) then writeln ('Номер элемента: ',i,' Элемент: ',mas[i]); end; End.