Сор информатика 3 четверть 7 класс​

1).  ніколи не давайте приватної інформації про себе (прізвище, номер телефону, адресу, номер школи) без дозволу батьків. 2).   завжди дотримуйтесь сімейних правил інтернет-безпеки: вони розроблені для того, щоб ви почували себе комфортно і безпечно у мережі.3).  завжди будьте ввічливими у електронному листуванні, і ваші приятелі будуть ввічливими з вами.4).  не розсилайте листи з будь-якою інформацією незнайомим людям без їхнього прохання - це сприймається як "спам", і звичайно засмучує користувачів мережі.

Pascal: var     i,sum: integer;     sr: real;     a: array[1..10] of integer; begin     writeln('введите 10 чисел');     for i: =1 to 10 do         read(a[i]); repeat       if a[i]> 0 then           begin             sum: =sum+a[i];               p: =p+1;         end; until i: =10; sr: =sum/p; writeln('сумма = ',sum,'среднее арифмитический = ',sr); end.