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

@JanKlod · Регистрация: 31.05.2012

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

1. Дан одномерный массив, задающийся генератором случайных чисел. Найти номер последнего отрицательного элемента массива.
Добавлено через 1 минуту
прошу помочь в решении задачек,оч надо!!! Заранее СПАСИБО!!!

@CodeR · 01.06.2012, 09:25

Сообщение от JanKlod

1. Дан одномерный массив, задающийся генератором случайных чисел. Найти номер последнего отрицательного элемента массива.

Pascal

Var A:array[1..100] of integer;
    i,k,n:integer;
Begin
    write('Введите размер массива: ');readln(n);
    k:=0;
    For i:=1 to n do
     Begin
      A[i]:=Random(11)-5;
      write(A[i]:3);
      if A[i]<0 then k:=i;
     End;
    writeln;
    if k<>0 then writeln('Последний отрицательный элемент: ',A[k])
     else writeln('Отрицательных нету');
End.

@JanKlod · 01.06.2012, 12:08 **[ТС]**

Благодарю!!!

@JanKlod 0 / 0 / 0 Регистрация: 31.05.2012 Сообщений: 6
		1
	Найти номер последнего отрицательного элемента массива 01.06.2012, 00:46. Показов 3839. Ответов 2 Метки нет (Все метки) 1. Дан одномерный массив, задающийся генератором случайных чисел. Найти номер последнего отрицательного элемента массива. Добавлено через 1 минуту прошу помочь в решении задачек,оч надо!!! Заранее СПАСИБО!!! 0

@JanKlod 0 / 0 / 0 Регистрация: 31.05.2012 Сообщений: 6
	01.06.2012, 12:08 [ТС]	3
	Благодарю!!! 0

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

Решение