При сортировке в электронной таблице ты можешь отсортировать данные только в одном столбце не затрагивая остальные столбцы, а можешь отсортировать все записи.
А в базе данных отсортируешь только все записи по выбранному ключу.
const
n = 6;
var
i, j, k: integer;
a: array [1..6, 1..6] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if (i = j) or (j = 1) or (i = 1) or (i = 6) or (j = 6) then
a[i, j] := 1
else
a[i, j] := 0;
write(a[i, j]:3);
end;
writeln();
end;
end.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:=ReadInteger('n =');
var sum1:=n mod 10 +n div 1000;
var sum2:= n div 10 mod 10 + n div 100 mod 10;
Writeln('сумма крайних членов равна ', sum1);
Writeln('сумма средних членов равна ', sum2);
end.
Земляника , малина , яблоко, вишня , смородина