Заполните массив с клавиатуры и найдите произведение не нулевых элементов массива)В...

0 голосов
27 просмотров

Заполните массив с клавиатуры и найдите произведение не нулевых элементов массива)В паскале)


Информатика (35 баллов) | 27 просмотров
0

не нулевых это не равных нулю?

0

да))))

0

тогда должен спросить максимальное число которое может выдавать рандом? с 1000 получаются очень большие числа.

0

тут вроде нет ограничений) чем меньше тем лучше...

Дан 1 ответ
0 голосов
Правильный ответ

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.

(8.6k баллов)
0

Еще раз спасибо :)))))

0

обращайтесь если что ;D