Создать массив а(15).определить произведение элементов массива,стоящих на четных местах., !

116

315

Посмотреть ответы 2

Ответы на вопрос:

хорошист488

Информатика

4,4(59 оценок)

//pascal //числа случайные в диапазоне [-10; 10] var a: array [1..15] of integer; i: byte; mult: longint; begin mult : = 1; randomize; //в pascalabc.net можно убрать for i : = 1 to 15 do begin a[i] : = random(21)-10; if i mod 2 = 0 then mult : = mult * a[i]; write(a[i], ' '); end; writeln; writeln('произведение элементов на четных местах = ', mult); readln; end.