Вывести номер предпоследнего положительного элемента одномерного массива

@Mandarink-a · Регистрация: 13.02.2014

Author24 — интернет-сервис помощи студентам

Есть одномерный массив. Вывести номер предпоследнего положительного элемента.

@Varsavia · 03.03.2014, 22:02

Pascal

Program primer;
const i=5;
var a,b,c:integer;
m: array [1..i] of integer;
begin
c:=0;
Writeln('Это наш одномерный массив:');
for a:=1 to i do
begin
 m[a]:=random(5)-3;
 Writeln('m[',a,']=',m[a]);
 end;
for a:=i downto 1 do
 if (m[a]>=0) then 
 begin
 b:=a;
 if (c=1) then Writeln('Это номер предпоследнего положительного элемента массива: ',b);
 c:=c+1;
 end;
 if (c=1) then Writeln('Нет такого элемента')
 end.

@Mandarink-a 0 / 0 / 0 Регистрация: 13.02.2014 Сообщений: 31
		1
	Вывести номер предпоследнего положительного элемента одномерного массива 03.03.2014, 15:35. Показов 2821. Ответов 1 Метки нет (Все метки) Есть одномерный массив. Вывести номер предпоследнего положительного элемента. 0

	03.03.2014, 22:02

Вывести номер предпоследнего положительного элемента одномерного массива

Решение