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.
Поделитесь своими знаниями, ответьте на вопрос:
Дано 5 числовых констант: А=35, К=12, T=2, P=89, Z=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.