Сформулируйте массив из 10 целых чисел из промежутка [1; 15] и вычислите произведение элементов массива с нечетными номерами

Question

Информатика

Лавруха

5 ноября, 02:35

Сформулируйте массив из 10 целых чисел из промежутка [1; 15] и вычислите произведение элементов массива с нечетными номерами

+2

Ответы (2)

Знаете ответ?

Евдоха · Answer 1

Program 123;

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

i, p: integer;

begin

a[i]:=random (15) ;

p:=1;

for i:=1 to 10 do

if (i mod 20) then (p: = (a[i]*p)) ;

end.

Вадим · Answer 2

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

i, m: integer;

begin

m : = 1; for i : = 1 to 10 do begin

a[i] : = random (20) ;

writeln ('[', i, '] = > ', a[i]) ;

if (a[i] mod 2 = 1) then m : = m * a[i];

end;

writeln (m) ;

end.

Уже делал)