Ввести c клавиатуры массив из 5 элементов, найти - вопрос №510020265 от guzhowa66 30.01.2021 10:27

Question

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

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