Question

написать,программу которая запрашивает массив из N целых чисел а затем выводит четные элементы и их количество(на паскале)

Answer 1

var a,i,n:integer;

     s: array [0 .. 99999999] of integer;

     begin

       read (n);

       i:=n;

       for i:=1 to n do begin

         read(s[i]);

       end;

       for i:= 1to n do begin

         if (i mod 2)=0 then begin

           a:=a+1;

           writeln(s[i]);

         end;

       end;

       write(a);

     end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет задачу:

pascalCopy code
program EvenElementsCounter;

const
  MaxArraySize = 100;

var
  arr: array[1..MaxArraySize] of Integer;
  N, i, evenCount: Integer;

begin
  writeln('Введите количество элементов массива (N): ');
  readln(N);

  writeln('Введите элементы массива: ');
  for i := 1 to N do
    readln(arr[i]);

  evenCount := 0;

  writeln('Четные элементы массива:');
  for i := 1 to N do
  begin
    if arr[i] mod 2 = 0 then
    begin
      writeln(arr[i]);
      evenCount := evenCount + 1;
    end;
  end;

  writeln('Количество четных элементов: ', evenCount);
end.

Программа сначала запрашивает количество элементов массива (N), а затем последовательно вводит элементы. Затем она проходит по массиву и выводит четные элементы, подсчитывая их количество.