Question

Дано 5 числовых констант: А=35, К=12, T=2, P=89, Z=1. Вывести значения этих констант на экран. Вычислить среднее арифметическое этих чисел. Вывести результат на экран с пояснением, указав только целую часть числа.

Answer 1

var A, K, T, P, Z: integer;

sr_arif: real;

begin

A:=35; K:=12; T:=2; P:=89; Z:=1;

Write(A, ' ', K, ' ', T, ' ', P, ' ', Z);

sr_arif:=trunk((A+K+T+P+Z)/5);

Writeln;

Write(sr_arif);

end.