СОСТАВИТЬ ПРОГРАММУ ** ПАСКАЛЕ ДЛЯ ВВОДА С КЛАВИАТУРЫ 15 ЧИСЕЛ И ВЫВОДА НОМЕРОВ...

Question

СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ ДЛЯ ВВОДА С КЛАВИАТУРЫ 15 ЧИСЕЛ И ВЫВОДА НОМЕРОВ ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ .

ПОСЛЕ ЗАМЕНИТЬ ЭТУ ПРОГРАММУ НА ОПЕРАТОР WHILE

Answer 1

var a:array[1..15]of integer;
x,i:integer;
begin
i:=1;
while i<16 do begin<br>readln(x);
if x<0 then a[i]:=x;<br>inc(i);
end;
for i:=1 to 15 do if a[i]<0 then writeln(i);<br>end.