Дан массив целых чисел: вывести произведение четных элементов массива и минимальный элемент

Question

Информатика

Тимоша

19 января, 01:12

Дан массив целых чисел: вывести произведение четных элементов массива и минимальный элемент

+2

Ответы (1)

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

Петюня · Answer 1

Uses crt;

const N=10;

var a:array [1 ... N] of integer;

x, min, pr:integer;

begin

pr:=1;

for x:=1 to N do

begin

read (a[x]) ;

if x mod 2=0 then pr:=pr*a[x];

end;

min:=a[1];

for x:=1 to N do

if a[x]
writeln ('Произведение четных элементов: ', pr,'; минимальный элемент: ', min) ;

end.