Program pr;
Var a:array[1..20] of integer;
i,sum:integer;
sr:real;
Begin
for i:=1 to 20 do a[i]:=random(100);
for i:=1 to 20 do Write(a[i],';');
sr:=0;
for i:=1 to 10 do sr:=sr+a[i];
sr:=sr/10;
sum:=0;
for i:=11 to 20 do sum:=sum+a[i];
Writeln;
Writeln('srednee=',sr);
Writeln('summa=',sum);
end.
Begin
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
end.
Всего символов = 256 * 20 * 40 = 204800
Для одного символа используется 8 бит = 1 байт.
Объем хрестоматии = 204800 байт = 200 кбайт.
Всмысле?Напиши по точнее...