Напишите пожалуйста программку на Pascal ABC Net, сущность которой содержится в
Напишите пожалуйста программку на Pascal ABC Net, сущность которой заключается в том, что человек обязан написать ввести N чисел, после чего программа обязана посчитать среднее арифметическое, которое округлено до целых чисел (round) и это среднее арифметическое обязано быть умножено на самое махонькое число, введенное человеком и из всего этого вычитаем самое великое число, введённое человеком.
Формула: , где t - это сумма введённых чисел, человеком, d-это количество чисел, введённых человеком, min-самое махонькое число, которое было введено человеком и max-это самое наибольшее число, которое было введено человеком!! ЕСЛИ В Итог ПО ЭТОЙ ФОРМУЛЕ Выходит ОТРИЦАТЕЛЬНЫЙ, ТО МЫ УМНОЖАЕМ ЕГО НА -1
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 gt; max) then max:=j
else if(j lt; min) then min:=j;
sum:= sum+j;
end;
sum:= round(sum/n)*min-max; //результирующая формула
if sum lt; 0 then writeln('Итог: ', -sum)//умножаем на -1 если результатlt;0
else writeln('Итог: ', sum);
End.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.