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

@GonArchy · Регистрация: 07.06.2012

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

@Lemur8063 · 27.04.2013, 23:44

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.

@GonArchy 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 6
		1
	Найти номер последнего отрицательного элемента в одномерном динамическом массиве 08.06.2012, 09:33. Просмотров 1358. Ответов 1 Метки нет (Все метки) Найти номер последнего отрицательного элемента в одномерном динамическом массиве. 0

Опции темы

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

Решение