Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

С клавиатуры вводится число n, а за ним - массив из n элементов. Найдите номер последнего по счёту положительного элемента массива. Помогите пожалуйста(

Ответ оставил Гость

Const
  nm = 50;{максимальная длина массива}

var
  i, n: integer;
  a: array[1..nm] of integer;

begin
  Write(Введите количество элементов в массиве: );
  Readln(n);
  Write(Введите элементы массива через пробел );
  for i := 1 to n do
  begin
    Read(a[i]);
  end;
  i := n;
  while (a[i] <= 0) and (i > 0) do Dec(i);
  if i > 0 then Writeln(Последний положительный элемент a[, i, ]=, a[i])
end.

Тестовое решение:
Введите количество элементов в массиве: 5
Введите элементы массива через пробел 3 -3 5 -5 -4
Последний положительный элемент a[3]=5