Найти номер последней пары соседних элементов с разными знаками

@Артём33 · Регистрация: 27.04.2010

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

Пожалуйста помогите сделать задачу:
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти номер последней пары соседних элементов с разными знаками.

@AI\EKCAH^P · 28.04.2010, 17:01

Pascal

program zad;
uses crt;
const n=10;
var
i:integer;
mas:array[1..n] of integer;
begin
  clrscr;
  for i:=1 to n do
  begin
    write('введите mas[',i,']= ');
    readln(mas[i]);
  end;
  for i:=n downto 1 do
  begin
    if mas[i]*mas[i-1]<0 then
    begin
      writeln('номер последней пары с разными знаками равен ',i,' и ',i-1);
      readln;
      exit;
    end;
  end;
  writeln('таких пар нет!');
  readln;
end.

@Артём33 3 / 3 / 1 Регистрация: 27.04.2010 Сообщений: 318
		1
	Найти номер последней пары соседних элементов с разными знаками 28.04.2010, 15:54. Показов 1462. Ответов 1 Метки нет (Все метки) Пожалуйста помогите сделать задачу: Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти номер последней пары соседних элементов с разными знаками. 0

	28.04.2010, 17:01

Найти номер последней пары соседних элементов с разными знаками

Решение