Question

На паскалі потрібно написати.
фото умови внизу

Answer 1

program ArithmeticMeanFinder;

uses crt;

var

   ArrayLength : integer;

   AllNumbersCounter : integer;

   UsefulNumbersCounter : integer = 0;

   UsefulNumbersSumm : integer = 0;

   CurrentNumber : integer;

   ArithmeticMean : Real;

begin

 { очищаем экран }

 clrscr;

{ просим ввод n для последовательности a1, a2, ... , an }

 write('Введине n: ');

 readln(ArrayLength);

 {  выполняем последовательно от 1 до n }

 for AllNumbersCounter := 1 to ArrayLength do

 begin

  { просим пользователя ввести число }

   writeln('Введите ', AllNumbersCounter, 'е число: ');

  read(CurrentNumber);

   {

     если введённое число > 2 и < 12, оно считается

     подходящим, увеличиваем счётчик подходящих чисел,

     прибавляем подходящее число к сумме подходящих чисел

   }

  if (CurrentNumber > 2) and (CurrentNumber < 12) then

  begin

       Inc(UsefulNumbersCounter);

       UsefulNumbersSumm := UsefulNumbersSumm + CurrentNumber;

   end;

 end;

 clrscr;

 {

   выщитываем средее арифметическое: делим сумму подходящих  чисел

   на количество подходящих чисел

   выводим результат округлённый до сотых

 }

 ArithmeticMean := UsefulNumbersSumm / UsefulNumbersCounter;

 writeln('Среднее арифметическое', ArithmeticMean:6:2);

end.