Напишите программу, которая заполняет массив из 10 - вопрос №1010319256 от yulyashka01 12.04.2023 22:00

Question

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

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