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

@Beriaru · Регистрация: 28.05.2013

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

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

Одну часть этой задачи решила, а эта часть не поддается дрессировке(

@AlexP11223 · 28.05.2013, 16:55

Pascal

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.

@Beriaru · 28.05.2013, 17:21 **[ТС]**

Спасибо*-*

@Beriaru 0 / 0 / 0 Регистрация: 28.05.2013 Сообщений: 9
		1
	Найти номер первого четного числа последовательности чисел 28.05.2013, 16:32. Показов 1276. Ответов 2 Метки нет (Все метки) решить задачу двумя способами 1. С массивом(При решении способом с массивом вывести все введенные числа в виде строки) 2. Используя метки и оператор goto (не используя никакой цикл) С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел. Если четных чисел нет, то результат равен нулю. Одну часть этой задачи решила, а эта часть не поддается дрессировке( __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

@Beriaru 0 / 0 / 0 Регистрация: 28.05.2013 Сообщений: 9
	28.05.2013, 17:21 [ТС]	3
	Спасибо- 0

Опции темы

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

Решение