128 символов = 2^7 т.е. 7 бит на символ
Одна страница занимает = 8750байт / 5 страниц = 1750 байт
Одна строка занимает = 1750 байт / 25 строк = 70 байт
Символов в строке = 70*8 бит / 7 бит = 80 символов
var
arr: array[1..20] of real;
s:real;
i:integer;
Begin
s:= 0;
write('Массив: ');
for i:=1 to 20 do begin
arr[i]:= random(10);
write(arr[i], ' ');
end;
for i:=1 to 20 do
if Abs(arr[i]) > 1 then
S:= S + arr[i];
writeln;
writeln('Сумма: ', s);
END.
И каждая прикладная программа может создавать свои собственные файлы для своих нужд