Создать массив. вычислить произведение элементов с четными индексами. элементы массива - случайные целые числа из отрезка (-10; 10) блок схема и паскаль.

Question

Zhulia

Информатика

2 мая, 13:34

Создать массив. вычислить произведение элементов с четными индексами. элементы массива - случайные целые числа из отрезка (-10; 10) блок схема и паскаль.

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Михаил Яшин · Answer 1

Pascal:

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

i, p:integer;

begin

p:=1;

for i:=1 to 10 do begin

a[i]:=random (-10,10);

if not odd (i) then p*=a[i];

write (a[i]:3);

end;

writeln;

writeln (p);

end.