Поделитесь своими знаниями, ответьте на вопрос:
Заполни таблицу в тетради.ИнформацияДиас позвал своих однокласс-ников на футбольный матч, который пройдет на школьномстадионе завтра в 16.00Меруерт сообщила своим одно-классникам о том, что сегоднясостоится родительское собраниеУчительница сообщила, чтозавтра на родительском собранииона будет говорить об успевае-мости учащихсяКаким свойством обладает?
Program Test;
var
Mas: array[1..10] of integer;
result1: integer;
result2: real;
function Sum(): integer;
var summa: integer;
begin
summa := 0;
for var i := 1 to 10 do
summa := summa + Mas[i];
Sum := summa;
end;
procedure Arifmetic(r1: integer; var A: real);
begin
A := r1 / 10;
end;
Begin
for var i := 1 to 10 do
begin
Write('Введите ', i, ' элемент: ');
Readln(Mas[i]);
end;
result1 := Sum();
Arifmetic(result1, result2);
Writeln();
Writeln('Сумма = ', result1);
Writeln('Среднее арифметическое = ', result2);
End.