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

Question

Информатика

Максим

25 сентября, 04:14

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

+1

Ответы (1)

Знаете ответ на вопрос?

Геннадия · 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