Ответы на вопрос:
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
Популярно: Информатика
-
Rorschach00101.02.2021 00:51
-
Yerkosyaorynbekova27.07.2021 20:21
-
dan35528.08.2022 17:09
-
lizperepelitsa10.09.2021 02:30
-
BanderSap14.12.2021 03:54
-
PavelOlga04.04.2020 23:26
-
ручка4121.11.2020 04:50
-
Т121616.04.2022 09:46
-
milanka2808200625.08.2022 02:01
-
gotov234443333204.02.2021 01:02