Напишите программу, которая заполняет массив из 10 - вопрос №1031993310 от dimaschastny 28.12.2022 00:29

Question

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

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