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

@Degster · Регистрация: 18.03.2011

2)найти номер последнего отрицательного элемента.

@PsiYar · 18.03.2011, 12:42

2)

Pascal

uses crt;
const m=100;
var mas:array [1..m] of integer;
i,k,n:byte;
begin
clrscr;
writeln('kol-vo elementov: ');
clrscr;
readln(n);
for i:=1 to n do
 begin
 write('vvedite ',i,' element: ');
 readln(mas[i]);
 clrscr;
 if mas[i]<0 then k:=i;
 end;
write('nomer poslednego otrizatelnogo: ',k);
readln;
end.

@Degster 1 / 1 / 0 Регистрация: 18.03.2011 Сообщений: 11
		1
	Найти номер последнего отрицательного элемента 18.03.2011, 10:17. Просмотров 995. Ответов 1 Метки нет (Все метки) 2)найти номер последнего отрицательного элемента. 0

Опции темы

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

Решение