Программа для Pascal.
PROGRAM Z;
USES CRT;
VAR
A,B:INTEGER;
M:ARRAY[1..10] OF INTEGER;
BEGIN
CLRSCR;
WRITELN('VVEDITE ELEMENTY');
FOR A:=1 TO 10 DO READLN(M[A]);
WRITELN('CHETNIE ELEMNTY : ');
FOR A:=1 TO 10 DO IF A MOD 2 = 0 THEN WRITELN (M[A]);
READKEY
<span>END.</span>
При вводе символа и интерпретируя его в тип int оно не может произвести никаких действий, поэтому программа продолжает работать со значением по-умолчанию.
<h2>А вот официальное примечание:</h2>
If extraction fails (e.g. if a letter was entered where a digit is expected), value is left unmodified and failbit is set.
Если ввод не удается (например, если была введена буква, хотя ожидается число), значение остается неизменным и устанавливается ноль.
Var a,b:integer;
begin
read(a,b);
if (a*b) mod 5 = 0 then writeln('делится') else writeln('не делится');
end.