Які ключі та за яких умов матиме сутність "Клас школи"? 2. За яких умов ключем сутності "Книга" в предметній області "Бібліотека" буде комбінація атрибутів "ПІБ автора" та "назва"? 3. Які сутності можуть мати предметні области "Супермаркет", "Житлові будинки"? Визначте атрибути для цих сутностей. 4. Знайдіть ключі сутності "Працівник", якій властиві атрибути: + прізвище + ім'я + по батькові + країна + місто + паспорт 5. Знайдіть ключі сутності "Користувач", якій властиві атрибути: + номер в списку + електронна пошта + логін + прізвище + ім'я + номер телефону 6. Знайдіть ключі сутності "Учень", якій властиві атрибути: + номер свідоцтва про народження + прізвище + ім'я + по батькові + ідентифікаційний код платника податків + номер особової справи
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var m:array [0..14] of integer; i:integer;
function IsPositive(a:integer):boolean;
begin
result:=(a>-1);
end;
procedure work;
var min, max, count:integer;
begin
count:=0;
min:=m[0];
max:=0;
for i:=0 to 14 do begin
if IsPositive(m[i]) then begin
inc(count);
if m[i]>max then max:=m[i];
if m[i]<min then min:=m[i];
end;
end;
writeln('MAX: ', max);
writeln('MIN: ', min);
writeln('Count: ', count);
end;
begin
for i:=0 to 14 do begin
write('n: ');
readln(m[i]);
end;
work;
readln;
end.