Ввести c клавиатуры массив из 5 элементов, найти - вопрос №100209425 от 33zet33 19.01.2023 14:56

Question

Информатика: Ввести c клавиатуры массив из 5 элементов, найти частное от деления произведения всех элементов на удвоенную сумму всех элементов .

33zet33 · Answer

var a: array[1..5] of integer;i,p,s: integer;beginfor i:=1 to 5 do read(a[i]);p:=1;s:=0;for i:=1 to 5 do beginp:=p*a[i];s:=s+a[i];end;write( ответ: ,p/(2*s));end....