Вправа 2. Футбол. Спроектуйте модель бази даних про футбольний клуб, який має назву, рік заснування і розташовується в певному населенному пункті певної країни. У клуба є багато гравців і один головний тренер. Відомі прізвища, імена і дати народження тренерів і гравців. Проект намалюйте в зошиті, фото моделі прикріпіть до завдання.

1)
const n=10;
var a:array[1..n] of integer;
i,min,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(81)+10;
write(a[i]:4);
end;
writeln;
min:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
s:=s+a[i];
end;
writeln('min = ',min);
writeln('s = ',s);
end.

Пример:
 54 58 67 78 58 79 54 78 44 60
min = 44
s = 630

2)
const n=9; m=6;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do a[i,j]:=i;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]);
writeln;
end;
end.

Результат: 
111111
222222
333333
444444
555555
666666
777777
888888
999999

var 
a: Array[1..10, 1..10] of Real; 
n, m, i, j, i1, j1, i2, j2: Byte; 
min, max: Real;

begin 
Writeln('Введите кол-во строк и столбцов'); 
Read(n, m);Writeln; 
for i := 1 To n Do 
begin   
Writeln('Введите ', m, ' эл. ', i, '-й строки матрицы');   
for j := 1 To m Do Read(a[i, j])
end; 
Writeln('Ваша матрица:'); 
for i := 1 To n Do 
begin   
for j := 1 To m Do
Write(a[i, j]:7:2);   
Writeln
end; 
for i := 1 To n Do 
begin   
min := a[i, 1];i1 := i;j1 := 1;   
for j := 1 To m Do    
if a[i, j] < min then begin       
min := a[i, j];i1 := i;j1 := j     
end;   
 if i = 1 Then    begin  
max := min;i2 := i1;j2 := j1   
end   
Else    if min > max Then    begin     
max := min;i2 := i1;j2 := j1   
end 
end; 
Writeln('Максимальным из минимумов строк является элемент ', max:6:2, ' с индексами [', i2, ',', j2, ']');
end.