Напишите пожалуйста программу ** Pascal ABC Net, суть которой заключается в том, что...

Question

Напишите пожалуйста программу на Pascal ABC Net, суть которой заключается в том, что человек должен написать ввести N чисел, после чего программа должна посчитать среднее арифметическое, которое округлено до целых чисел (round) и это среднее арифметическое должно быть умножено на самое маленькое число, введенное человеком и из всего этого вычитаем самое большое число, введённое человеком.
Формула: , где t - это сумма введённых чисел, человеком, d-это количество чисел, введённых человеком, min-самое маленькое число, которое было введено человеком и max-это самое максимальное число, которое было введено человеком!! ЕСЛИ В РЕЗУЛЬТАТ ПО ЭТОЙ ФОРМУЛЕ ПОЛУЧАЕТСЯ ОТРИЦАТЕЛЬНЫЙ, ТО МЫ УМНОЖАЕМ ЕГО НА -1

Answer 1

Var
   max,     //максимальный элемент
   min,      //минимальный элемент
   sum,     //сумма всех чисел
   n,          //количество чисел
   j: integer;
Begin
   write('Введите количество чисел: ');
   readln(n);
   write('Введите числа: ');
   readln(j);
   max:=j; min:=j; sum:=j; //1-й элемент это мин, макс, и сумма одновременно
   for var i:=2 to n do begin 
      readln(j); 
      if(j > max) then max:=j 
      else if(j < min) then min:=j; 
      sum:= sum+j;
   end;
   sum:= round(sum/n)*min-max;  //результирующая формула
   if sum < 0 then writeln('Результат: ', -sum)//умножаем на -1 если результат<0<br>   else writeln('Результат: ', sum);
End.