Напишите программу, которая заполняет массив - вопрос №1010319431 от 1615005296 04.04.2020 14:14

Question

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

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