Вопрос по информатике:

Напишите программу, которая считывает с клавиатуры n чисел и затем выводит на экран сумму и среднее арифметическое положительных

uses crt;var n: integer; {Количество чисел} a: array [1..50] of integer; {Массив чисел} i: integer; {Переменная для прохода по массиву} j: integer; {Переменная для прохода по массиву} sum: integer; {Сумма} sr: integer; {Среднее арифметическое} tmp: integer; {Промежуточная переменная} begin sum := 0; sr := 0; writeln(\'Введите размер массива\'); readln(n); {Цикл ввода массива} for i := 1 to n do begin writeln(\'Введите \' +i ,\' число\'); readln(tmp); if tmp > 0 then begin a[i] := tmp; end end; {Цикл подсчета суммы и среднего арифметического} for j := 1 to n do begin sum := sum + a[j]; sr := sum div n; end; writeln(\'Сумма чисел: \' +sum); writeln(\'Среднее арифметическое \' +sr);end.