Дан файл input.txt, компоненты которого являются действительными числами (всего 10 чисел, записанных в строку через пробел). Найти:
сумму чисел, записанных в файле;
произведение чисел, записанных в файле;
последнее число в файле;
среднее арифметическое элементов;
сумму чисел, стоящих на четных и нечетных местах;
два самых маленьких элемента.
Результаты записать в новый файл output.txt (с пояснениями, т.е. текстовыми подсказками, каждый пункт на новой строке).

информационный вес символа,при алфавитном подходе считается,что каждый символ текста имеет определенный информационный вес. информа­ционный вес символа зависит от мощности алфавита.а ка­ким может быть наименьшее число символов в алфавите? оно равно двум. скоро вы узнаете, что такой алфавит ис­пользуется в компьютере.он содержит всего 2 символа, ко­торые обозначаются цифрами «0» и «1».его называют дво­ичным алфавитом. изучая устройство и работу компьютера,узнаете,как с всего двух символов можно пред­ставить любую информацию. информационный вес символа двоичного алфавита принят за единицу информации и называется он 1

1.

var arr: array[1..6] of integer;

var i, summ: integer;

begin

 summ:= 0;

 for i:=1 to 6 do

 begin

   readln(arr[i]);

 end;

   

 for i:=1 to 6 do

   begin

       if arr[i]>4 then

           summ := summ+arr[i];

   end;

   

 writeln(summ);

end.

var arr: array[1..7] of integer;

var i, mult: integer;

begin

 mult:= 1;

 for i:=1 to 7 do

 begin

   readln(arr[i]);

 end;

   

 for i:=1 to 7 do

   begin

       if arr[i]>0 then

           mult := mult*arr[i];

   end;

   

 writeln(mult);

end.

Краткий гайд

i - переменная-счётчикarr - массив, с которым производятся операцииsumm - (в первом задании - переменная, отвечает за сумму элементовmult - (во второй части) отвечает за произведение