Одномерный массив

@Степан222 · Регистрация: 10.12.2011

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

Создать программу,которая присваивает переменной t значение true,если в одномерном массиве положительные элементы чередуются с отрицательными и значение false в противоположном случае!!!

Комментарий модератора

Читаем правила форума
3.3 - Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п.

@hell_gate666 · 13.12.2011, 23:45

а зачем 2 раза повторять?

@Kitayets · 17.12.2011, 01:53

Pascal

...
Type
    TWorkArr =  array [0..7] of Integer;
...
function isItAlternation(aWorkArr: TWorkArr): boolean;
var
  i: Integer;
  prev, cur: boolean;
begin
  Result:= false;
  if aWorkArr[0] = 0 then Exit; // если 0 то значения не чередуются
  prev:= aWorkArr[0] > 0;
  for i:= 1 to High(aWorkArr) do begin
     if aWorkArr[i] = 0 then Exit;
     cur:= aWorkArr[i] > 0;
     if cur = prev then Exit;
     prev:= cur; 
  end;
  Result: True;
end;
...
const
   testArr1: TWorkArr = (1, -10, 5, -99, 3, -65, 65, -1000);
   testArr2: TWorkArr = (1, -10, 5, -99, -1, -65, 65, -1000);
var
  t: boolean;
begin
...
  t:= isItAlternation(testArr1); // true
  t:= isItAlternation(testArr2); // false
...
end;

Добавлено через 2 минуты
как-то так.

@hell_gate666 3 / 3 / 0 Регистрация: 13.10.2011 Сообщений: 29
	13.12.2011, 23:45	2
	а зачем 2 раза повторять? 0

	17.12.2011, 01:53