Дан массив С(13). Найти номер последнего отрицательного элемента массива
Дан массив С(13). Найти номер последнего отрицательного элемента массива
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы