Question

Найди все четные по значению элементы массива. Вывести на экран значение элементов и их индекс. Ввод элементов массива с клавиатуры. Программа пишется на языке Паскаль

Answer 1

var    a: array[1..5]of integer;    i: integer;
begin
  for i := 1 to 5 do 
   read(a[i]);   
  for i := 1 to 5 do        
   if ((a[i] mod 2) = 0) then writeln('число - ',a[i], ' индекс - ',i);
end.
abs pascal