Предмет: Информатика, автор: Vova11111182

Найти произведение элементов массива, имеющих нечетные индексы и выбрать из них минимальный

dimich347: какой язык?

dimich347: а, это ты

dimich347: как задается массив?

dimich347: какой размер массива?

Vova11111182: вот условие задачи

Vova11111182: больше ничего нет

dimich347: окей, возьмем по минимуму

Vova11111182: давай

Vova11111182: слушай... А завтра можешь помочь, если будут другие задачи..

Ответы

Автор ответа: dimich347

Program Mass;
var i, n, m: integer;
A:array [1..20] of integer;
begin
n:=1;
for i:=1 to 20 do
A[i]:=random(1000);
m:=A[1];
for i:=1 to 20 do
if i mod 2 = 1 then
begin
n:=n*A[i];
if m > A[i] then
m:=A[i];
end;
write(' произведение нечётных = ', n);
write('наименьшее из нечётных = ',m);
end.

dimich347: если нужно выводить каждый член автоматически заданной последовательности, то меняем строки
***
for i:=1 to 20 do
A[i]:=random(1000);
***
на
***

dimich347: ***
for i:=1 to 20 do
A[i]:=random(1000);

dimich347: нет

dimich347: меняем
***
for i:=1 to 20 do
A[i]:=random(1000);
***
на
***
for i:=1 to 20 do
begin
A[i]:=random(1000);
write(A[i]:5);
end;
***

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Химия, автор: anishin2020

Масса сероводорода H2S равна 0,6 кг. Вычисли объём, который этот газ занимает при нормальных условиях.

Вычисляй с точностью до сотых. Ответ округли до целых. Например: 456.
Ответ: V(H2S)=
дм³.

5 лет назад

Предмет: Обществознание, автор: sofiienko2005

Розв’яжіть задачу:
16-річному С. під час прийому на роботу на швейне підприємство клеїльником (використовуються токсичні речовини) був встановлений випробувальний термін протягом трьох місяців. Які норми КЗпПУ порушені?

5 лет назад