Подсчитать среднее арифметическое чисел, находящихся в файле number.txt. Файл заполняется программно либо с клавиатуры, либо случайными числами Program example_4;

var k, a, s, sa: integer;

sa: real;

f: file of integer;

begin

k:=0;

s:=0;

assign (f, ‘number.txt’);

reset (f);

while not eof (f) do

begin

read (f,a);

s:=s+a;

k:=k+1;

end;

close (f);

sa:=s/k

writeln (sa:9:2);

end.

Подсчитать среднее арифметическое чисел, находящихся в файле number.txt. Файл заполняется программно либо с клавиатуры, либо случайными числами

надо

Массив - набор однотипных элементов, связанных общим именем (именем массива)

Виды: Одномерные, многомерные

Описание массивов различается в разных языках программирования, расскажу о C++ и Pascal

C++:

int a[20], так мы получим массив из 20 целых чисел с именем "a"

Pascal:

mas = array[1..10] of integer;

Так мы получим массив состоящий из 10 целочисленных элементов с именем "mas"

можно придумать бесконечное количество, но если обобщить, то мы имеем:

Ввод элементов с клавиатурыЭлементы получают случайное значениеВыбираем значения по определенном признаку

3. Тут тоже по сути много , но можем выделить следующие:

В строку/столбец без комментариевС комментариями

4. Чтобы вычислить сумму элементов массива нам нужно взять дополнительную переменную для суммы, затем пройтись по всему массиву с цикла и на каждом проходе прибавлять i-тый элемент массива к сумме.

5. Здесь нам нужно будет взять переменную для хранения максимального значения, присвоим ей значение 1 элемента массива, затем запустим цикл, в котором будет проверять, что больше, наша переменная с максимум или i-тый элемент, если же i-тый элемент больше максимума, то присваиваем максимуму значение i-того элемента.

6. Аналогично максимуму, только искать будем минимальное значение.

7. Нам нужно запустить цикл, который будет пробегать по всему массиву, в нём мы будем проверять каждый элемент на какие-либо свойства.

сортировок очень много, давайте рассмотрим самую простую сортировку - "Пузырёк". Пробегаем по массиву с вложенного цикла и сравниваем соседние элементы, если мы имеем пару неотсортированных элементов, то меняем их местами и так до конца. Данная сортировка является не только самой простой, но и одной из самых медленных и "глупых", так как реализовать ее может практически любой, а временная сложность ее не впечатляет

1)
function numb(n:integer):integer;
   var
       n,ch,st,max:integer;
   begin
      st:=1;
      max:=-1;
      ch:=n mod 10;
      n:=n div 10;
      while(n>0)do
         begin
             ch:=ch+(n mod 10)*st;
             n:=n div 10;
             st:=st*2;
          end;
       while(ch>0)do
           begin
                if(ch mod 10>max)then
                     max:=ch mod 10;
                ch:=ch div 10;
           end;
       numb:=max;
end;
2)
function yravn(a,b:integer):integer;
   begin
      yravn:=-b div a;
   end;