Хабарлама қуаты 16 символға тең алфавит көмегімен жазылған. Хабарламаның ақпараттық салмағы 1/8 Кбайтты құрайды. Осы хабарламадағы символдар санын анықта.

Я очень люблю и уважаю поэзию. Даже сама (Сам) пишу стихи.
Почему мне нравится поэзия? Ну так сразу и не сказать. Когда я открываю томик стихотворений Пушкина или Есенина все проблемы уходят на второй план. Сразу приходить такая легкость, безмятежность (проверь По словарю это слово ). И все проблемы сразу решаемы .
Мое любимое стихотворение "Жди меня " К. Симонова. Когда его читаешь слезы текут ручьем от того, как автор передал всю боль, весь страх того времени.
Лично я вам советую почаще читать. Это увлекательно и полезно.
как-то так )

Const n=20;
var a:array[1..n] of integer;
max,s,k,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(50);
 write(a[i],' ');
 end;
writeln;
max:=a[1];  s:=0; k:=0;
for i:=1 to n do
 begin
 if a[i]>max then max:=a[i]; 
 s:=s+a[i];
 if a[i]=10 then k:=i;
 end;
writeln('max = ',max,'  s = ',s);
if k>0
 then writeln('Элемент = 10 имеет номер ',k)
 else writeln('В массиве нет элемента = 10');
end.

Пример:
13 47 29 31 34 5 37 35 3 40 10 42 15 3 3 26 36 14 16 43 
max = 47  s = 482
Элемент = 10 имеет номер 11