begin
var x: integer;
var s: integer;
var Count := 0;
repeat
if not TryRead(x) then
begin
Writeln('This is not the integer number, try again');
continue
end;
s += x;
Count += 1;
until x = 0;
Println('Average =', s / (Count - 1))
end.
Ну а чего тут писать то... как бы ты отняла 153 от 875 ?
875-153 ..: в позиционной системе счисления(которой является десятичная система_то есть от позиции зависит значение числа...) алгоритм таков..: 1) отнимаем единицы _если единиц не хватает то занимаем у десятков(10 единиц занимаем)... отнимаем 2) отнимаем десятки..если десятков не хватает занимаем десятки у тысяч (10 сотен занимаем) ... и так далее в зависимости от того на сколько длинные числа...
вообще говоря десятичную системы проходят на всем курсе математики... почему вы не знаете алгоритм _как вычесть из одного числа другое _это очень странно...а как сдачу считать в магазине?)
Int massive = int[10];
for(int i = 0; i < 10; i++)
massive[i]=i *i;
Заполняет массив квадратами индексов
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
else writeln('Результат: ', sum);
End.