Question

Пожалуйста!!!

Задано массив c(8). Вычислить величину R по формуле R = PA + PB + PC, где PA,PB,PC - максимальные элементы массивов. Pascal.

Answer 1

//PascalABC.NET

begin

 var c := ArrRandom(8);

 c.Println;

 Sort(c);

 c.Println;

 var (PA, PB, PC) := (c[0], c[1], c[2]);

 var R := PA + PB + PC;

 Print(R)

end.