12. Задано некоторое сообщение в символьной форме: as a cons б.Что нужно знать, чтобы определить информационныйобъем этого сообщения при алфавитном подходе?1) Количество символов алфавита, с которогонаписано это сообщение2) Количество символов в сообщении3) Количество информации в одном символе этого сооб-щения​

Program zadacha;

const n=10;

var

a:array [1..n] of integer;

i,min,max,sum:integer;

begin

 writeln('Введите элементы:');

 for i := 1 to n do read(a[i]);;

 

 max:=-10000; min:=10000;

 

 for i:=i to n do

   if (a[i]>max) then max := a[i];

   writeln('Максимальное число в массиве: ',max);

   

  for i:=1 to n do

    if (a[i]<min) then min:=a[i];

    writeln('Минимальное число в массиве: ',min);

 

 for i := 1 to n do sum:=sum+a[i];

 writeln('Сумма всех чисел массива = ',sum);

End.

Объяснение:

min ставим наибольшим, чтобы оно постепенно уменьшалось в сравнении. max ставим от наименьшего, чтобы оно увеличивалось в сравнении.

При суммировании необязательно обнулять переменную (в данном случае sum), т.к. у нас немного действий.