Вывести на экран максимальный элемент массива, массив заполняется с клавиатуры.

Программа может выглядеть так: uses crt; const m=1000; type mas=array [1..m] of integer; var a: mas;   i, max, n: integer; begin   clrscr;   write('n = ');   readln(n);   for i: =1 to n do         begin         write('a[',i, ']=');         readln(a[i]);         end;   max: =a[1];   for i: =2 to n do           if a[i]> max then max: =a[i];   writeln;   writeln ('max = ', max);   readln; end.

мощность n=16

n=2^i где i-количество информации в символе

тогда i=4

информационный объем i равен i*k где k - количество символов в тексте

значит i =4*540=2160

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.