Написать программу на языке программирования паскаль в результате выполнения которой получались произведение не нулевых элементов массива .

zarraban zarraban    1   18.09.2019 00:50    0

Ответы
peterbayroshoxq5ei peterbayroshoxq5ei  07.10.2020 22:59

program HelloWorld;

var n:array [1..10] of integer;

var c: integer;

var i: SmallInt;

 begin

c:=1;

 for i:=1 to 10 do     
    n[i] := random(10); //заполняем случайными данными

for i:=1 to 10 do
    if n[i] > 0 then c:=c*n[i];

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика