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

Формулировка задачи:

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

Код к задаче: «Найти номер первого четного числа последовательности чисел - Turbo Pascal»

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.143 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы