Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
asler
0 / 0 / 0
Регистрация: 31.10.2010
Сообщений: 30
1

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

31.10.2010, 20:22. Просмотров 1012. Ответов 2
Метки нет (Все метки)

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

С клавиатуры вводиться n заданных чисел a1, a2, a3,..... an .Найдите номер первого четного числа последовательности чисел. Если четных чисел нет, ответ 0
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2010, 20:22
Ответы с готовыми решениями:

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

Найти номер первого четного числа последовательности чисел
решить задачу двумя способами 1. С массивом(При решении способом с массивом...

Найти номер первого четного числа в массиве
В одномерном массиве целых чисел a1, а2, ..., an найти но¬мер первого четного...

В одномерном массиве найти номер первого четного числа
В одномерном массиве целых чисел a1, а2, ..., an найти но¬мер первого четного...

Найдите номер первого шестизначного числа
Помогите пжл очень надо !!! Вопрос отчисления !!! Помогите !!! Среди чисел...

2
AF
49 / 48 / 21
Регистрация: 06.10.2010
Сообщений: 115
31.10.2010, 20:40 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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.
1
asler
0 / 0 / 0
Регистрация: 31.10.2010
Сообщений: 30
31.10.2010, 20:49  [ТС] 3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2010, 20:49

Найдите номер последнего из наибольших чисел последовательности
Пусть вводится последовательность из целых чисел, оканчивающаяся нулем....

Найти номер первого четного элемента массива
Пожалуйста, помогите решить!!!

Дана последовательность вещественных чисел {A[j]} j=1..n.Найти наибольшее из отрицательных чисел и номер этого числа в последовательности.
Дана последовательность вещественных чисел {A} j=1..n.Найти наибольшее из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru