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

Дан одномерный массив. Найти номер последнего отрицательного элемента
Категория: Информатика 3 года назад
На вопрос 3 года назад
Альбина Брусилова
Const n = 10;
var a:array[1..n] of integer;
i,k:integer;
begin
  for i:=1 to n do begin
    a[i]:=random(41)-20;
    if a[i]<0 then k:=i;
    write(a[i]:4);
  end;
  writeln;
  writeln('Номер последнего отрицательного: ',k);
end.
Тестовое решение:
16  20   2  -2 -15  -8  20  -4   3   4
Номер последнего отрицательного: 8
Ответ получен 3 года назад
Ника Антипина

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт