Определить, есть ли в массиве отрицательные элементы

05.04.2011, 16:16. **Показов** 1382. **Ответов** 3

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

1.формирование одномерного массива целых чисел 2.определить есть ли в этом массиве отрицательные элементы и если есть,то вывести номер первого такого элемента. Напишите пожалуйста как правильно это сделать,очень нужно!

@anonimus · 05.04.2011, 17:41

что вообще не дружишь с программированием?
это ж азы

@Romantik_FM · 05.04.2011, 17:48

Delphi

var
MyMas: array [] of real;
 
Begin
 SetLength(MyMas,10);
  For i:=0 to 9 do
   Begin
    MyMas[i]:=RandomRange(-1000, 1000); 
   End;
  For i:=0 to 9 do
   Begin
    if MyMas[i]<0 then
     begin
      a:=i;
      exit;
     end else
   End;
 ShowMessage(IntToStr(a));
End;

Где то так...

@profid · 05.04.2011, 18:46

Romantik_FM,
юзер возбмёт да скопирует а потом думать будет что у него там в коде неверно,
в квадратных скобках бы неплохо диапазон указывать

мари55
		1
	Определить, есть ли в массиве отрицательные элементы 05.04.2011, 16:16. Показов 1382. Ответов 3 Метки нет (Все метки) 1.формирование одномерного массива целых чисел 2.определить есть ли в этом массиве отрицательные элементы и если есть,то вывести номер первого такого элемента. Напишите пожалуйста как правильно это сделать,очень нужно!

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	05.04.2011, 17:41	2
	что вообще не дружишь с программированием? это ж азы 0

@profid 67 / 44 / 5 Регистрация: 22.02.2011 Сообщений: 285
	05.04.2011, 18:46	4
	Romantik_FM, юзер возбмёт да скопирует а потом думать будет что у него там в коде неверно, в квадратных скобках бы неплохо диапазон указывать 0

Определить, есть ли в массиве отрицательные элементы

Решение