Question

Напишите программу в среде программирования
PascalABC. Протестируйте ее.
Cоставьте программу нахождения и вывода на экран номера
первого четного элемента целочисленного массива из 8
элементов или выведите на экран сообщение о том, что четных
элементов в массиве нет. В качестве ответа напишите код
вашей программы (учитывая синтаксис языка
программирования Pascal).

Answer 1

Ответ:

Вот пример программы на языке PascalABC, которая находит и выводит на экран номер первого четного элемента целочисленного массива из 8 элементов:

pascal

Copy code

program FindEvenElement;

var

 arr: array[1..8] of Integer;

 i: Integer;

begin

 writeln('Введите 8 целых чисел:');

 for i := 1 to 8 do

 begin

   write('Элемент ', i, ': ');

   readln(arr[i]);

 end;

 for i := 1 to 8 do

 begin

   if arr[i] mod 2 = 0 then

   begin

     writeln('Первый четный элемент в массиве: ', arr[i]);

     writeln('Номер четного элемента: ', i);

     break;

   end;

 end;

 if (i > 8) then

   writeln('В массиве нет четных элементов.');

 readln;

end.