Uses crt;
var x,m: array [1..40] of integer;
n,k,c:integer;
begin
readln(n);
c:=1;
for k:=1 to n do
begin
write('x[',k,']:');
readln(x[k]);
end;
k:=1;
repeat
if x[k]>0 then
begin
m[c]:=x[k];
inc(c);
inc(k);
end
else inc(k);
until c=6;
writeln;
for c:=1 to 5 do
writeln('m[',c,']:',m[c]);
<span>end.</span>
2 Кбайта = 2*1024 байт = 2048 байт
Один файл, имеющий размер 2500 байт, займет на диске 2 блока, т.е. 4 Кбайта.
Для хранения 20 файлов потребуется на диске 20*4 = 80 Кбайт.