9*1024*8(это весь информационный объём)/48*6*8(количество символов(без количества строк))=32 строки помещается на 1 странице
Допустим, есть таблица "Цены" с полем "Цена". Считаем коэффициент для скидки. Допустим, скидка 20%, тогда K = 1 - (20% / 100%) = 1 - 0.2 = 0.8
Создаём запрос на основе таблицы "Цены". В построителе выражений (или непосредственно в заголовке столбца с данными в конструкторе запросов) пишем так:
ЦенаСоСкидкой: Цены.Цена*0,8
Var a:array [1..1000] of integer;
k,i,n:integer;
begin
write ('kol-vo elementov v massive=');
readln (n);
write ('k=');readln (k);
writeln ('vvedite massiv');
for i:=1 to n do
readln (a[i]);
write ('massiv: ');
for i:=1 to n do
write (a[i],' ');
if (k<=n) and (k>0) then
for i:=k+1 to n do
a[i-1]:=a[i];
writeln;
write ('massiv posle ydalenija: ');
for i:=1 to n-1 do
write (a[i],' ');
end.