Дан массив С (13). Найти номер последнего отрицательного элемента массива

Question

Информатика

Ардальон

8 июня, 10:03

Дан массив С (13). Найти номер последнего отрицательного элемента массива

+3

Ответы (1)

Знаете ответ?

Тотя · Answer 1

Const n=13;

var

c:array[1 ... n] of integer;

i, num:integer;

begin

for i:=1 to n do c[i]:=random (-10,10) ;

for i:=n downto 1 do begin

write (c[i],' ') ;

if c[i] < 0 then begin

writeln (i) ;

break;

end;

end;

end.