Дан массив целых чисел: вывести произведение четных элементов массива и минимальный элемент
Дан массив целых чисел: вывести произведение четных элементов массива и минимальный элемент
Гость
Ответ(ы) на вопрос:
Гость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]
Не нашли ответ?
Похожие вопросы