Ввести c клавиатуры массив из 5 элементов, найти частное - вопрос №100209425 от Imao 25.06.2020 14:12

Question

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

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