Напишите программу, которая заполняет массив из - вопрос №1010319599 от vikkisitoff 13.10.2020 05:02

Question

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

vikkisitoff · 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....