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

@Sweety · Регистрация: 04.03.2010

массив любой.....что - то не получается....

@Inadequate · 11.03.2010, 00:55

Pascal

uses
  Crt;
const
  N = 10;
var
  a: array[1..N] of integer;
  i,NumZ: integer;
begin
  ClrScr;
  Randomize;
  NumZ := -1;
  WriteLn('Èñõîäíûé ìàññèâ:');
  for i := 1 to N do
  begin
    a[i] := Random(8) - 4;
    if a[i] < 0 then
      NumZ := i;
    Write(a[i], ' ')
  end;
  if NumZ = -1 then
    WriteLn('No')
  else
    WriteLn('Result: ', NumZ);
  ReadLn
end.

@Sweety 0 / 0 / 0 Регистрация: 04.03.2010 Сообщений: 17
		1
	В заданном одномерном массиве определить номер последнего отрицательного элемента 11.03.2010, 00:01. Просмотров 1377. Ответов 1 Метки нет (Все метки) массив любой.....что - то не получается.... 0

Опции темы

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

Решение