Что такое базы данных и как с ними работать?

Question

Информатика: Что такое базы данных и как с ними работать?

Andrey3355 · Accepted Answer

Const n=5;
var
a:array[1..n,1..n] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to n do
begin c:=a[1,j]; a[1,j]:=a[n,j]; a[n,j]:=c; end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.

Пример:
Исходный массив:
47 36 39 31 0
8 43 31 16 17
24 12 18 18 39
17 19 0 28 8
16 10 18 6 28
Полученный массив:
16 10 18 6 28
8 43 31 16 17
24 12 18 18 39
17 19 0 28 8
47 36 39 31 0

MOGZ ответил