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

@asler · Регистрация: 31.10.2010

Сказано что задача решаеться через цикл с четчиком.

С клавиатуры вводиться n заданных чисел a1, a2, a3,..... an .Найдите номер первого четного числа последовательности чисел. Если четных чисел нет, ответ 0

@AF · 31.10.2010, 20:40

Pascal

VAR
  n, i: INTEGER;
  A: ARRAY[1..1000] OF INTEGER;
BEGIN
  WRITE('n=');
  READLN(n);
  WRITELN('Enter array[', n, ']:');
  FOR i := 1 TO n
  DO
    READ(A[i]);
  i := 0;
  WHILE i <= n
  DO
    BEGIN
      i := i + 1;
      IF A[i] MOD 2 = 0
      THEN
        Break
    END;
  WRITELN('x=', A[i]);
  READLN
END.

@asler · 31.10.2010, 20:49 **[ТС]**

Спасибо!

@asler 0 / 0 / 0 Регистрация: 31.10.2010 Сообщений: 30
		1
	Найдите номер первого четного числа последовательности чисел 31.10.2010, 20:22. Показов 1642. Ответов 2 Метки нет (Все метки) Сказано что задача решаеться через цикл с четчиком. С клавиатуры вводиться n заданных чисел a1, a2, a3,..... an .Найдите номер первого четного числа последовательности чисел. Если четных чисел нет, ответ 0 __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

@asler 0 / 0 / 0 Регистрация: 31.10.2010 Сообщений: 30
	31.10.2010, 20:49 [ТС]	3
	Спасибо! 0

Опции темы

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

Решение