Напишите программу, которая заполняет массив из - вопрос №1031993310 от Starshine2007 13.03.2021 13:34

Question

Информатика: Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-5,5} и находит произведение ненулевых элементов.( фри паскаль)

Starshine2007 · Answer

var a: array[1..10] of integer;i,p: integer;beginrandomize;p:=1;for i:=1 to 10 do begina[i]:=random(11)-5;write(a[i], );if a[i] 0 then p:=p*a[i];end;writeln;write( p= ,p);end....