Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 28.05.2013
Сообщений: 9
1

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

28.05.2013, 16:32. Показов 1276. Ответов 2
Метки нет (Все метки)

решить задачу двумя способами
1. С массивом(При решении способом с массивом вывести все введенные числа в виде строки)
2. Используя метки и оператор goto (не используя никакой цикл)

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел. Если четных чисел нет, то результат равен нулю.

Одну часть этой задачи решила, а эта часть не поддается дрессировке(
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.05.2013, 16:32
Ответы с готовыми решениями:

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

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

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

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

2
141 / 110 / 30
Регистрация: 20.04.2011
Сообщений: 581
28.05.2013, 16:55 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
label
l1, l2;
var
  num, n, i, s, firstOdd: integer;
 
begin
  write('n = ');
  readln(n);
  
  i := 1;
  s := 0;
  firstOdd := 0;
  l1:
  write('a', i, ' = ');
  readln(num);
  s := s + num;
  if (firstOdd = 0) and (num mod 2 = 0) then
    firstOdd := num;
  i := i + 1;
  if i <= n then
    goto l1;
  
  writeln('Sum = ', s);
  writeln('Result = ', firstOdd);
  
  readln;
end.
1
0 / 0 / 0
Регистрация: 28.05.2013
Сообщений: 9
28.05.2013, 17:21  [ТС] 3
Спасибо*-*
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2013, 17:21

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

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

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел.
Решить задачу 3 способами: 1. Используя метки и оператор goto (не используя никакой цикл) 2....

Найти количество чисел последовательности, оканчивающихся на 3, до первого четного
Помогите составить программу: &quot;Вводится последовательность целых чисел до первого четного числа....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru