Напишите программу, которая в последовательности натуральных чисел определяет значение минимального, не кратного 9, элемента последовательности. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, не кратное 9. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: значение минимального элемента не кратного 9.(язык паскаль, в виде курса 9 класса)

Первая задача

var

i,n:1..1000;

a,max:-30000..30000;

begin

max:=-30000;

read(n);

for i:=1 to n do begin

read(a);

if (a>max) and (a mod 5=0) then max:=a;

end;

write(max);

end.

Вторая задача

var

i,n:1..100;

a:-300..300;

s:-30000..30000;

begin

s:=0;

read(n);

for i:=1 to n do begin

read(a)

if a mod 10=3 then s:=s+a;

end;

write(s);

end.

Объяснение:

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i,  i=1 бит.

2) находим значение информационной емкости одного символа. n=2^i, подставляя значение в формулу, получаем n=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.

3) i=8 бит=1 байту

(20*1024)/(32*64*1)= 10