Question

Найти наименьший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер массива 30

Answer 1

Ответ:Program proizved_chet;

Var a: array [1..30] of integer;

i, n, p: integer;

Begin

p:=1;

write ('n='); readln (n);

for i:=1 to n do

begin

write ('a[',i,']='); readln (a[i]);

if i mod 2=0 then p:=p*a[i];

end;

Writeln ('наименьший элемент и его номер это ',p);

End.

Объяснение: