Для записи алгоритмов, работающих с большими объемами информации, в алгоритмическом языке существуют специальные табличные величины (или просто таблицы). Наиболее часто встречаются линейные (из одной строки или одного столбца) и прямоугольные таблицы (несколько строк и несколько столбцов)
Примеры линейных таблиц: всевозможные списки, ряд членов арифметической и геометрической прогрессий и т. д. Линейные таблицы задаются описанием типа, имени таблицы с указанием её первого и последнего элементов.
Примеры прямоугольных таблиц: таблица умножения, всевозможные расписания соревнований, уроков, журнальная страница, оценки за полугодие всего класса по всем предметам и т. д.
Объяснение:
const
nm=100;
var
a: array[1..nm] of integer;
i,k,l,n,buf: integer;
begin
randomize;
write('vvedite n ');
readln(n);
writeln('ishodniy massiv:');
for i:=1 to n do
begin
a[i]:=random(99)+1;
write(a[i],' ');
end;
writeln;
write('vvedite k,l (k<l) : ');
readln(k,l);
for i:=k to (l-k)div 2+k do
begin
buf:=a[k];
a[k]:=a[l];
a[l]:=buf;
k:=k+1;
l:=l-1;
end;
for i:=1 to n do write(a[i],' ');
readln;
end.
const
nm=100;
var
a,b: array[1..nm] of integer;
i,n: integer;
begin
randomize;
write('vvedite n>10 ');
readln(n);
writeln('ishodniy massiv a:');
for i:=1 to n do
begin
a[i]:=random(99)+1;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if i<=10 then b[i]:=a[i]+i
else b[i]:=a[i]-i;
writeln('massiv b:');
for i:=1 to n do write(b[i],' ');
readln;
end.
