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

Question

Информатика

Федорыч

26 февраля, 09:16

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

+4

Ответы (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