Найти порядковый номер последнего отрицательного числа в последовательности из n вещественных чисел

@b1ind · Регистрация: 05.11.2015

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

Написать программу на Паскале.
Найти порядковый номер последнего отрицательного числа в последовательности из n вещественных чисел.

Помогите с задачкой пожалуйста.

@CodeR · 06.11.2015, 09:07

Pascal

Var i,n,index:integer;
    m:real;
Begin
    write('N: ');
    readln(n);
    writeln('Введите ',n,' вещественных чисел');
    index:=0;
    For i:=1 to n do
    Begin
      read(m);
      if m<0 then index:=i;
    End;
    if index=0 then writeln('В последовательности отрицательных нет')
     else writeln('Порядковый номер последнего отрицательного числа = ',index);
    readln;
End.

@b1ind · 06.11.2015, 19:24 **[ТС]**

Большое спасибо

@b1ind 0 / 0 / 0 Регистрация: 05.11.2015 Сообщений: 4
		1
	Найти порядковый номер последнего отрицательного числа в последовательности из n вещественных чисел 05.11.2015, 19:15. Показов 2699. Ответов 2 Метки нет (Все метки) Написать программу на Паскале. Найти порядковый номер последнего отрицательного числа в последовательности из n вещественных чисел. Помогите с задачкой пожалуйста. 0

@b1ind 0 / 0 / 0 Регистрация: 05.11.2015 Сообщений: 4
	06.11.2015, 19:24 [ТС]	3
	Большое спасибо 0

Опции темы

Найти порядковый номер последнего отрицательного числа в последовательности из n вещественных чисел

Решение