Выяснить, расположены ли элементы массива в заданном порядке

@TurboPascal · Регистрация: 12.12.2011

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

Дан A(m). Выяснить, расположены ли элементы массива в следующем порядке +-+-...+-. Сделать соответствующее сообщение.

@Петррр · 12.12.2011, 23:03

Pascal

program cyberforum;
uses
    crt;
const
     m = 6;
var
   a: array[1..m] of integer;
   i: integer;
   b: Boolean;
begin
     clrscr;
     randomize;
     for i := 1 to m do
     begin
          a[i] := random(20) - 10;
          write(a[i], ' ');
     end;
     b := true;
     for i := 1 to m do
     begin
         if ((odd(i)) and (a[i] > 0)) then
            continue
         else
         begin
             if ((not odd(i)) and (a[i] < 0)) then
                continue
             else
             begin
                  b := false;
                  break;
             end;
         end;
     end;
     writeln;
     writeln(b);
     readkey;
end.

@TurboPascal 2 / 2 / 0 Регистрация: 12.12.2011 Сообщений: 25
		1
	Выяснить, расположены ли элементы массива в заданном порядке 12.12.2011, 22:51. Показов 1081. Ответов 1 Метки нет (Все метки) Дан A(m). Выяснить, расположены ли элементы массива в следующем порядке +-+-...+-. Сделать соответствующее сообщение. 0

	12.12.2011, 23:03

Выяснить, расположены ли элементы массива в заданном порядке

Решение