. Скласти модель сутність-зв'язок для предметної області Відеопрокат. У фільмах знімаються актори, виконуючи ролі. Про актора відомі прізвище, ім’я, рік народження, є фото та біографія. Про фільми відома інформація: назва, режисер, рік випуску, країна, жанр (фільм може належати до кількох жанрів), тривалість фільму, наявність нагород. Про клієнтів пункту відео прокату відомі прізвище, ім’я, рік народження, адреса проживання та телефон. Кожен з них може брати у прокат фільми, при цьому фіксується дата отримання та повернення фільму. Клієнт може брати кілька фільмів одночасно; всі фільми представлено в єдиному екземплярі.

uses crt; var a,b,c,min: integer; beginwriteln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел:   ',min); readln; end.

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.

отмечено как нарушение через stoker ( w: 0% t: 4 )