Ответы на вопрос:
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
Популярно: Информатика
-
TMTkid09.12.2022 12:13
-
AlexKostrov29.04.2021 05:55
-
няшка36716.08.2021 14:18
-
Anastaskip03.10.2021 14:18
-
gr1mez02.08.2020 09:48
-
анапияабдыганиева04.02.2023 12:32
-
homonorolla02.12.2020 20:55
-
1337lolkek06.04.2022 02:17
-
Kharin8605.04.2020 03:30
-
natalie1m22202.09.2020 03:05