Дан массив из 200 элементов , найти произведение всех элементов массива решить на паскале

265

295

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

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

MMMOZG

Информатика

4,5(60 оценок)

begin

// если нужно считать массив, то удали эту строку, кроме кода var a : = //readarrinteger(200);

var p : = 1;

for var i : = 0 to a.length -1 do

begin

p *= a[i];

end;

println(p);

end.

romansyslikovp08d0y

Информатика

4,6(44 оценок)

Var b,c,d: integer; a: array [1..100] of integer; begin randomize; writeln('введите длину массива'); readln(b); d: =1; for c: =1 to b do begin a[c]: =random(10); writeln(a[c]); if a[c] < > 0 then d: =d*a[c]; end; writeln('произведение не нулевых элементов массива ',d); end.