Приклад 2. Дано таблиця розміром 3 х 4. переставити місцями два рядки.
var b:array[1..3,1..4] of integer;i,j,k,l,c:integer;
begin
writeln('Введіть номери рядків'); readln(k,l);
for i:=1 to 3 do begin writeln(i,'adok tabl');
for j:=1 to 4 do read(b[i,j]); writeln; end;
for j:=1 to 4 do begin c:=b[k,j];
b[k,j]:=b[l,j]; b[l,j]:=c; end;
writeln('Престановлена таблиця');
for i:=1 to 3 do begin
for j:=1 to 4 do writeln(b[i,j]);
writeln; end; readln; end.

Приклад 3. Знайти суму елементів стовпців таблиці.
const n=2;
var b:array[1..n,1..n] of integer;i,j,s:integer;
a:array[1..n] of integer;
begin writeln('введіть елементи таблиці');
for i:=1 to n do begin for j:=1 to n do
read(b[i,j]); writeln; end;
for j:=1 to n do begin s:=0;
for i:=1 to n do s:=s+b[i,j]; a[j]:=s; end;
writeln('naybilsh'); for i:=1 to n do
writeln(a[i]); readln; end.

Приклад 4. Дано таблиця розміром п х п. Знайти найбільші елементи в кожному з рядків.
const n=3;
var b:array[1..n,1..n] of integer;i,j:integer;
a:array[1..n] of integer;
begin
writeln('введіть значення таблиці');
for i:=1 to n do begin for j:=1 to n do
read(b[i,j]); writeln; end;
for i:=1 to n do begin
a[i]:=b[i,1]; for j:=2 to n do
if a[i] writeln('найбільші числа рядків таблиці');
for i:=1 to n do writeln(a[i]); readln; end.

IV. Підведення підсумків уроку.
V. Домашнє завдання.
Підготовка до практичної роботи. Повторити всі попередні теми на вивчення табличних величин.