Вмассиве найти max {a1+a10; a9+a2; a8+a3; a7+a4; a6+a5 программа на паскале.

Const n=10;   var a: array[1..n] of integer; i,max: integer;   begin writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(21)-10;   write(a[i],'   ');   end; writeln; max: =a[1]+a[10]; for i: =2 to n div 2 do   if a[i]+a[n-i+1]> max then max: =a[i]+a[n-i+1]; writeln('max = ',max); end. пример: исходный массив: 3   9   -4   -4   10   -6   2   -8   -2   -1   max = 7

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;   сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;   т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. байт состоит из 8 бит.  8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.