===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.
Var
a, b, c, d: byte;
begin
for a := 1 to 5 do
begin
for b := 1 to 5 do
begin
c := (c = 10 ? 1 : c + 1);
write((a mod 10 = 1 ? c : 16 - c):3);
end;
writeln();
end;
end.
0000.0001.0010.0011.0100.0101,0110,0111,1000,1001,1010,1011,1100,1101,1110,1111. Всього 16 паролей.
Ответ № 5 - для <span>однозначного выделения записи в базе данных.
</span>
<span>Под первичным
ключом понимают поле или набор полей,
однозначно (уникально) идентифицирующих
запись. (http://informatic.ugatu.ac.ru/lib/office/Proekt.htm)</span>