Найти пары чисел, расположенных рядом и различных по модулю

@Maria_Добрая · Регистрация: 17.10.2010

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

Дано действительные числа a1, a2, ..., an. Определить количество пар чисел, расположенных рядом и различных по модулю.

@Valery__ · 22.10.2012, 16:44

Pascal

Program par;
Const n=5;
Type mas = array[1..n] of real;
Var a:mas;
    i,k:integer;
BEGIN
  Writeln ('Vvedite masiv chisel ');
  for i:=1 to n do begin
    write ('a[',i,']');
    Readln (a[i]);
  end;
  k:=0;
  i:=1;
  Repeat
    if ((a[i]<0) and (a[i+1]>0)) or ((a[i]>0) and (a[i+1]<0)) then inc(k);
    inc(i);
  until i=n;
  Write (k);
END.

@Maria_Добрая 0 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 63
		1
	Найти пары чисел, расположенных рядом и различных по модулю 22.10.2012, 16:28. Показов 1583. Ответов 1 Метки нет (Все метки) Дано действительные числа a1, a2, ..., an. Определить количество пар чисел, расположенных рядом и различных по модулю. 0

	22.10.2012, 16:44

Найти пары чисел, расположенных рядом и различных по модулю

Решение