Скласти модель "сутність-зв'язок" для предметної області Кінотеатр.
Об'єкти: "Актор", "Фільм", "Квиток", "Клієнт"
У фільмах знімаються актори, виконуючи ролі. Про актора відомі прізвище, ім’я, рік народження, є фото та біографія. Про фільми відома інформація: назва, режисер, рік випуску, країна, жанр (фільм може належати до кількох жанрів), тривалість фільму, наявність нагород. Про клієнтів кінотеатру прокату відомі прізвище, ім’я, рік народження, e-mail та телефон. Кожен з них може купувати квиток на фільми, при цьому фіксується дата сеансу, час сеансу і зал. Фільм можуть транслюватись у декількох залах одночасно.
Day:array[1..7] of string[15] = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
T:array[1..7] of integer;
D: array[1..7] of real;
i,k:byte;
s:integer;
SR:real;
begin
S:=0;
randomize;
Writeln('Температура в течение недели:');
for i:=1 to n do
begin
T[i]:=random(50)-25;
S:=S+T[i];
write(T[i]:4);
end;
writeln;
SR:=S/n;
writeln('Средняя температура: ',SR:3:2);
k:=0;
Writeln('Температуры ниже средней в дни : ');
for i:=1 to n do
if T[i]<SR then
begin
write(Day[i]:15);
k:=k+1;
end;
writeln;
writeln('Всего ',K,' дня(ей)');
writeln('Массив отклонений:');
for i:=1 to n do
begin
D[i]:=T[i]-SR;
write(d[i]:8:3);
end;
end.
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i,j]);
if (a[i,j] > max) then
max := a[i,j];
if (a[i,j] < min) then
min := a[i,j];
end;
writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);End.