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

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


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.


Похожие ответы
  1. Найти номер первого из столбцов, не содержащих элементов, меньших s. (матрица)

  1. Дан массив записи, представляющий собой календарь(число,месяц,год). Описать функцию подсчитывающую сколько дней прошло от первого января 2005 года до даты d этого года.

  1. Задан текстовый файл. Переписать у файл g все строчки файла f, которые состоят с четного количества слов.

  1. Условие: Разработать программу для реализации указанного действия над целыми числами без знака (longint) в десятичной системе счисления. Написать две программы: 1) с использованием массивов, т.е. число представить в виде массива цифр, произвести необходимые действия, из массива цифр получить новое число и результат вывести в виде нового числа; 2) без использования массивов. Задание: Из двух чисел получить новое путем замены четных цифр первого числа на наибольшую цифру второго числа (231, 73 → 731)

  1. Составьте программу заполнения с клавиатуры и вывода на экран массива из 5 элементов. Найдите элемент наиболее отличающийся от первого

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

  1. В заданном слове произвести обмен первого и последнего символов. Я сделал, но мне сказали сделать без переменной "С" чтобы как-то оптимизировать программу. Вот мое решение но сделать нужно как-то по другому чуток

  1. Ребятки всем привет. Помогите пожалуйста,я конечно новенький на форуме,и не очень соображаю в паскале а тут вообще затруднение. Буду развиваться. Дана целочисленная прямоугольная матрица. 1. Определить номер первого из столбцов, содержащих хотя бы один нулевой элемент. 2. Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с убыванием характеристик.

  1. Ребят помогите,пожалуйста. Суть в том,что нужно составить список(записную книжку) с фамилиями номером и датой рождения, затем нужно определить средний возраст всех людей из списка и удалить тех кто младше среднего возраста и отсортировать уже этот список по алфавит. Удаление работает, но вот если удаляемый элемент стоит первым в списке, то он удаляет только его фамилию, надеюсь поможете мне разобраться в этом.

  1. Имеется два файла с числами. Получить новый файл, в котором на четных местах стоят четные компоненты из первого файла, а на нечетных местах - нечетные компоненты из второго файла(количество компонентов в исходных файлах одинаковое).