Здравствуйте, dkhrebtovich!
{Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Здравствуйте, помогите с программой пожалуйста, нужно правильно поставить random,
что бы числа вводились 10 раз, после ввода нужно чтобы последовательным поиском
вывело количество и сами значения четных чисел!
Помогите пожалуйста.}
[code lang=pascal]var
x, i, y: integer;
s: array [1..10] of integer;

begin
randomize;
for x := 1 to 10 do
begin
s[x] := random(10); // Вставляешь в сам цикл - в random(10), 10 можешь менять на большее зн. 50
if s[x] mod 2 = 0 then begin
writeln('Четное число - ',s[x]); // 'Четное число - ', можешь удалить
y := y + 1; // inc(y)
end;
end;
writeln;
writeln('количество четных чисел = ', y)
end.[/code]