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

Это всё или ещё что-то будете заказывать ?

Программу, значит, написать... -Это можно. Только на каком языке программирования сделать сие? - Нет, программе-то без разницы, на каком языке программирования она написана, а вот учитель может задать вопрос: а с чего это вдруг программа написана на этом языке программирования, а не на том, который он преподаёт.

Ладно, напишу, пожалуй, на Паскале (Pascal).

И да, как вводится последовательность: вручную с клавиатуры или генерируется автоматически генератором случайных чисел? Ладно, пишу оба варианта:

1) Ручной ввод (с клавиатуры) (после ввода каждого числа нужно нажимать Enter):

Program P1;
uses crt;
const n=10;
type posledovatelnost=array [1..n] of integer;
var i, sum: integer;
p: posledovatelnost;
begin
clrscr;
sum:=0;
for i:=1 to n do begin
write ('Введите ', i, ' элемент последовательности: ');
readln (p[i]);
end;
for i:=1 to n do begin
if p[i] mod 2=0 then sum:=sum+p[i];
end;
writeln ('Количество чисел в последовательности: ', n);
write ('Сумма четных чисел в последовательности составляет: ', sum);
readkey;
end.

2) Числа генерируются автоматически:

Program P1;
uses crt;
const n=10;
type posledovatelnost=array [1..n] of integer;
var i, sum: integer;
p: posledovatelnost;
begin
clrscr;
sum:=0;
for i:=1 to n do begin
randomize;
p[i]:=random (100);
end;
write ('Была сгенерирована последовательность чисел: ');
for i:=1 to n do begin
write (p[i], ' ');
end;
for i:=1 to n do begin
if p[i] mod 2=0 then sum:=sum+p[i];
end;
writeln (' ');
writeln ('Количество чисел в последовательности: ', n);
write ('Сумма четных чисел в последовательности составляет: ', sum);
readkey;
end.