Задан массив на 10 элементов, все числа вводятся вручную, гарантируется, что все числа натуральные и не превышают 1000, вывести наименьший чётный элемент и его индекс (Паскаль)

Question

Информатика

Федюша

4 ноября, 09:01

Задан массив на 10 элементов, все числа вводятся вручную, гарантируется, что все числа натуральные и не превышают 1000, вывести наименьший чётный элемент и его индекс (Паскаль)

+3

Ответы (1)

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

Маина · Answer 1

Var

A:array[1 ... 10] of integer;

i, n, m:integer;

Begin

m:=1001;

WriteLn ('Введите массив') ;

For i: = 1 to 10 do

Begin

Read (A[i]) ;

if (A[i]
Begin

m:=A[i];

n:=i

End;

End;

WriteLn ('A[', n,'] = ', m) ;

End.