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

Question

Информатика

Дарина

25 июля, 03:57

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

+3

Ответы (1)

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

Ена · Answer 1

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.