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

Question

Информатика

Милуся

28 ноября, 08:41

Дан массив С (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.